OONOQQ000LINE 


001772317 COMPILE ESPOL/DISK ALGOL LIBRARY 
BURROUGHS B™5700 ALGOL COMPILER MARK xvI,0,122 


FSPOL /NISK 


ee eee ee ee ee ee 


SOURCE FILE: SYMBOL /ESPOL 


$SET OMIT LISTA = LIST 
BEGIN COMMENT OUTERMOST BLOCK; 


INTEGER ERRORCOUNTS COMMENT NUMBER OF ERROR MSGS, MCP WILL TYPE 


FRIDAY» 


OB/19/77> 


%113- 


SYNTX ERR AT E€OJ IF THIS TS NON#*ZERO, MUST BE @Re258 


INTEGER SAVETIME# COMMENT SAVE=FACTOR FOR CODE FILE» GIVEN BY MCP, 


TF COMPYLE & GO =0, FOR SYNTAX» =="1, MUST BE AT R+263 


INTEGER CARDNUMBERS &% SEQ # OF CARD BEING PROCESSED, 
INTEGER CARDCOUNT? % NUMBER OF CARDS PROCESSED, 
BOOLEAN BUILDLINE; 
COMMENT RR1=RRyy ARE USED IN SOME PROCEDURES IN 
PLACE OF LOCALS TO SAVE STACK SPACE} 
REAL RR1eRR2eRRIoRRGPRRSPRROORR7PRRGBORRGPRRIOSRRILS 
COMMENT SOME OF THE RRY ARE USEN TO PASS FILE INFORMATION 
TO THE MAIN BLOCK; 


COMMENT EXAMIN RETURNS THE CHARACTER AT ABSOLUTE ADDRESS NCR? 


REAL STREAM PROCEDURE EXAMINCNCR)$ VALUE NCR 
BEGIN STeNCRIDITeLOC EXAMINSDI«DI+73 DS+#CHR END3 
INTEGER STREAM PROCENURE GETF(Q)3VA\UE Q3 
BEGIN SleLOC GETFs SleSl73DleLoC QiDleDI+53 


SKIP 3 DB; 9CIF SB THEN DS«SET ELSE DS*RESET$ SKIP SB)3 


DIeLOC QsSTeOsDSeWDS3SyeQsGETFeS] 
END GFTF?3 
COMMENT START SETTING UP FILE PARAMETERSS 
IF EXAMINCRR11+GETFC3)4"YO8") #12 THEN RR1«5 ELSE 
BEGIN RR1«23RR2¢150 END} 
IF EXAMINCRR11+5) #12 THEN RR3€4 ELSE 
BEGIN RR3¢23 RR4¢150 END3 
IF FXAMINCRR11+10)512 THEN 
REGIN RR5«2sRR6c103RR74150 END ELSE 
RFGIN RR5S«1SRRO*56ERR7e10 END3 
TF EXAMINCRR11415)512 THEN 
BEGIN RR8«103RR9¢150 END ELSE 
BEGIN RR8«#50x10450413 RRI«10 END; 
BEGIN COMMENT MAJIN RLOCKS 
INTEGER OPYNX$ 8 USFD FOR {NDFXING FNTO OPTIONS ARRAY, 


BOOLEAN SFTTING? & USED BY NOLLARCARD FOR AN OPTION"S SETTING, 


_ INTEGER NEWINXs AnnVALUEs BASENUMs TOTALNO3 


DEFINE OPARSTZE = 200 #3 
ARRAY OPTYONSTOSOPARSIZE]: 
BOOLEAN OPTTONWORD; 
DEFINE CHECKBYIT 
NFBUGRYT 


1#, 
Dit» 


2901" 


12:05 PM, 


00000999 
00500000 
OF SEGMENT 
00501000 
00502000 
00503000 
00504000 
00504100 
00504150 
00504700 
00505000 
00506000 
00507000 
00508000 
00509000 
00510000 
00511000 
00512000 
00523000 
00524000 
00525000 
00526000 
00527000 
00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00538000 
01000000 
01000800 


START OF SEGMENT 


01000802 
01000860 
01000902 
01000904 
04000940 
01000990 
01000930 


ALGOL /ESPOL 


c¢ 0001!0000:0 

T 000141!0000:0 

ee ee ee ss. 
0002:0000:0 


AAHAAAA AX HAV HAHAHAHA HAHA TA AT AA HH 


000230000:0 
0002%0000:0 
00023000030 
00023000030 
000230000:0 
0002230000:0 
0002:0000:0 
0002!0000:0 
0002:0000:0 
0002:0000:0 
0002:0000:0 
000230000:0 
0002:00003%0 


0002!:0000:0 . 


000230002!0 
000200020 
0002:0003:2 
00023000532 
0002!0006'1 
0002:000733 
0002!000733 
0002!0013:2 
0002004624 
0002:0020:0 
00023002210 
0002:0024:0 
0002:0027:2 
00023002933 
00021003210 
00024003480 
0002003733 
00028003733 


ROR Kk 


0003#000030 
0003+0000!:0 
0003#0000:0 
0003?0000:0 
00033000234 
0003?0002!%4 
0003%0002%1 


2 


3 


(} 


C) 


C) 


Oy 


Or CO a 45 


C) 


ee) 


Ge) 


> Wer “Oh 9 


C) 


C} 


000 


Oy «2 


O 


COMMENT 


DEFINE 


COMMENT 


DFECKBIT 
FORMATBIT 
INTRIT 


LISTARYTT 


LISTRIT 
LISTPBIT 
McPRIT 
MERGEBIT 
NESTBIT 
NEWRYT 
NEWINCLBIT 
OMITBIT 


PRINTNOLLARRAIT 


PRTBIT 
PUNCHRIT 
PURGEBIT 
SFGSBIT 
SFOBIT 
SFQERRBIT 
SINGLATT 
STUFFBYT 
VOIDBIT 
VOIDTBYT 
XREFBIT 
BFNDBIT 
USEROPINX 


TF A NEW COMPIL 
AND ADD OPTION 
FILL STATEMENT 


CHECKTOG 
DEBUGTOG 
DFCKTOG 
FORMATOG 
INTOG 
LISTATOG 
LISToOG 
LISTPTOG 
MCPTOG 
MFRGETOG 
NESTOG 
NFWTOG 
NEWINCL 
OMITTING 


PRINTDOLLARTOG 


PRTOG 
PUNCHTOG 
PURGETOG 
SEGSTOG 
SFATOG 


SEQTOG INDICATE 


SEQERRTOG 
SINGLTOG 
STUFFTOG 
VOTDING 
VOTOTAPF 
XRFF 

BF ND 


UU Ou tf un now on 


out dunt wnt awn 


3H, 
hits 
5#, 
6%» 
7# » 
BF, 
ot, 
1O#, 
tit, 
124, 
13%, 
144, 
{5#, 
{6#, 
174, 
18#, 
19%, 
20#, 
21%, 
22k, 
23%#, 
o4#, 
25#, 
26#, %108= 
art, %1086 
28%; %108 


ER=DEFINED OPTION IS ADDED» CHANGE USEROPINX 
IN DEFINES BELOW» IN DOLLARCARDs AND IN 
IN INTTTALIZATION OF COMPILERS 


hu out town ni ut nt ten tet nn en nnn 


OPTTONWORD.CCHECKBIT#1) #» 
OPTIONWORD,CDEBUGBIT:11] 4s 
OPTTONWORD,CDECKBIT?4) #, 
OPTYTONWORD,CFORMATBIT!1] #, 
OPTIONWORD,CLISTABIT!:1] #> 
OPTTONWORD.CLISTBITI1) #, 
OPTTONWORD,CLISTPBIT!1] #> 
OPTYONWORH,CMCPBIT!1] #, 
OPTITONWORD,CMERGEBIT31) #, 
OPTIONWORD,CNESTBIT#411] #, 
OPTFONWORHD.ENEWBITI1] Bs 
OPTYONWORD,CNEWINCLBYT?24) #e 
OPTIONWORD,COMITBYT24) #e 
OFTTONWORDsCPRINTDOLLARBIT#1] fs 
OPTIONWORD,LPRIBIT#1)] #, 
OPTLTONWORD,CPUNCHBIT!31] #e 
OPTIONWORDsCPURGEBIT!I1) we 
OPTIONWORD.LSEGSBIT33] #e 
OPTIONWORD, CSEQBIT?4) #s 
RESFQUENCING IS TO BE DONE? 
OPTIONWORD,CSEQERRBIT!}] #» 
OPTLONWORD,CSINGLBIT!1] #» 
OPTTONWORD,CSTUFFBIT#1] #5 
OPTYONWORND,CVOIDB T3434] Fs 
OPTTONHORN,CVOIDTBITI1] #» 
OPTTFONWORD.CXREFBITI1] #4, 
OFTTONWORD.FBENDBIT#41#> 


%7108-= 
%106= 


01000940 
01000950 
01000960 
01000970 
01000980 
01000990 
01001000 
01001010 
01001020 
01001030 
01001040 
01001050 
01001060 
01001070 
01001080 
01001090 
01001100 
01001110 
01001120 
01001130 
01001140 
01001150 
01001160 
01001170 
01001171 
01001172 
01001180 
01001190 
01001200 
01001210 
041001220 
01001230 
01001240 
01001250 
01001260 
01001270 


01001280. 


01001290 
01001300 
01001310 
01001320 
01001330 
01001340 
01001350 
01001360 
01001370 
01001380 
01001390 
01001400 
01001410 
01001420 
01001430 
01001440 
01001450 
01001460 
01001461 
01001462 


aa aa i ae aie ne ee Sa See ea ee ae fe ae Na oe ne ee ee a da ee ee ee ee ee ee ee er ee ee 


0003%0002%4 
0003%000231 
0003%0002%14 


0003:0002%4 -~ 


0003+0002!14 
0003:000231 
0003:0002?1 
00034000231 
0003%000231 
00033000284 
0003000234 
0003%000231 
00033000284 
00038000231 
00033000231 
0003:0002'1 
0003:0002%1 
00032000234 
00033000234 
00033000231 
0003:000234 
00032000281 
000320002?14 
0003000231 
0003%000281 
00033000231 
0003:000231 
00032000231 
0003!:0002!1 
00033000231 


0003%000231. . 


00038000234 
0003#0002!1 
0003000231 
0003!0002%4 
0003#0002:1 


. 00035000214 


00038000281 
00033000231 


0003!0002!1 


0003:0002!1 
0003%0002%4 


0003000234. 


0003:0002%1 
00032000234 
000370002314 
0003:0002:14 
0003%000231 
0003?0002%4 
0003%000231 
0003%0002:4 
00033000281 
0003:000231 
0003000234 
0003000234 
0003:0002%1 
0003!000234 


i 


Or 


C) 


CS 


BOOLEAN 


BOOLEAN 


_....-BOOLEAN 


INTEGER 
BOOLEAN 
INTEGER 
BOOLEAN 
BOOLEAN 


DUMMY 


NOHEADINGS 


NF WBASES3 


LASTCRDPATCHS 


XMODE3 


DOLLARTOG; 


ERRMAX}$ 


SEQXEQTOG: 


LISTERS 


ALPHA MrDTUMS 


INTEGER 


MYCLASSS 


REAL BATMAN; 


ARRAY SPFCIAL(0#31]3 


Be BC SS BL HE AQ BE BO BE BO BZ BV Be 


= #3 : 
TRUE +F DATIME HAS NOT BEEN CALLED. 
NEW BASFNUM FOUND ON A NEW SRCARD, 


NORMALLY FALSE» SET TO TRUE WHEN THE 


LAST CARD FROM SYMBOLIC LIBRARY READ 
IS PATCHED FROM THE CARD READER, 
TELLS DoLLARCARD HOW To SET oPTIONS, 
TRUE IF SCANNING A DOLLAR CARD, 
COMPILATION STOPS IF EXCEEDED, 

GIVE SEae Noe WHEN DS#ING OBuUe 
LIsTOG OR LISTATOG OR DEBUGTOG, 
INPUT IS: TsCePrCarcBseCle 

USFD IN DOLLARCARD EVALUATION, 

USED 1N DOLLARCARD FVALUATION. 


COMMENT THIS ARRAY HOLDS THE INTERNAL CODE FOR THE SPECTAL 
CHARACTORS!? 17 7S FILLED DURING INITIALIZATIONS 


ARRAY INFO (£0!127,0:255]: 
QR RI ICI OIG IOI OIG GIO I I GR RIG IOK EGO ORI OI ROI KR IOI a a ROI IE ak 


% 


X Re F 


STUFF 


110" 


QO IO ORI ICO IO IG GIO CI FOG IG IOI GOI AOR I GIGI CH sR ik ak ake ake ak ak 


% 
ARRAY 


XREFAY2(0:29), 


XREFAYIFO29]5 


a 
’ 
% 


Be Be ae BE SR Ge WW BR 88 Sk BS 2Q SS BE BG BL BQ BR BY DY OG BV BV A BE AS BE GR BE 38 


ARRAY OF ONE WORD REFFRENCE RECORDS, 
THE LAYOUT OF EACH WORD TS 


of1%5] TYPE OF REFERENCE 
= 0 FOR FORWARD DECL 

FOR LABEL OCCURENCE 

FOR NORMAL DECL 

FOR NORMAL REFERENCE 

FOR ASSIGNMENT 


VFN © 


no nu ud 


%110° 
¥1105 
¥110= 
%110¢ 
¥1108 
¥1108 
%110- 
%110- 
%110° 
%110" 
Z110-"= 
%110- 


NOTF? THE LOWER ORDER BIT 


OF THIS FIELD 1S 


ON 


IF YOU WANT STARS21108 
AROUND THIS REFERENCE 


IN THE XREF 


efC6315) IDENTIFIER ID, NO, 


z110° 
4110 
2110° 


THIS IS A UNIQUE NUMBER THAT 


TS ASSIGNED WHEN THE 
IDENTIFIER 1S ENCOUNTERE 
FOR THE FIRST TIME, 


ef21%27] SEQUENCE NUMBER 


RFCORD BUFFER AREA FOR WRITING OUT THE 
NAME INFORMATION RECORDS, ONE RECORD 


%110° 
%110" 
%110- 
%110= 
%110= 
¥110° 
%110" 
%110- 


IS WRITTEN FOR EACH INENTIFIER IN THE SYMBOL 
TABLE WHEN THE IDENTIFIER IS PURGED FROM THE 
SYMBOL TABLE» I.E.» WHEN LEAVING THE BLoCK%110= 


In WHICH THE IDENTIFIER IS DECLARED, 


THE LAYOUT OF EACH RECORD IS3 


41109 
4110" 
2110° 
2110" 


01001470 
01001480 
01001490 
01001500 
01001510 
01001520 
01001530 
01001540 
01001550 
01901560 
01001570 
01001580 
01001590 
01001600 
01003000 
01004000 
01005000 
01006000 
01007000 
01007005 
01007010 
01007015 
01007020 
01007025 
01007030 
01007035 
01007040 
01007045 
01007050 
01007051 
01007055 
01007060 
01007065 
01007070 
01007075 
01007080 
01007085 
01007090 
01007095 
01007100 
01007105 
01007110 
01007115 
01007120 
01007125 
01007430 
01007135 
01007140 
01007145 
01007450 
01007155 
91007160 
04007165 
01007170 
01007175 
01007180 
01007185 


DOOM OQMANAANAIANAINAAANA AMANO AMANO ITA SOVMH AMMO MNO NQAVMNONO AAAARM TFB AAA AIHA a AeA oaHHAseH 


00035000231 
0003!000231 
00038000281 
00035000234 
00031000231 
0003!0002%4 
00038000231 
0003!0002%1 
000370002! 1 
00033000231 
0003300023 1 
0003000231 
00033000231 
0003:0002:?1 
00032000231 
0003:0005%2 
0003:0005%2 
00033000532 
0003700052 
000330007? 3 
00032000733 
00032000733 
0003!000733 
0003:000733 
00033000733 
00037001084 
0003!00140%4 
00032004084 
000370040%4 
00037001034 
000320040%4 
00037001084 
00032004084 
000330010? 14 
0003!0010%4 
000320014031 
000320010!%14 
0003:0010?1 
00032003034 
000310010381 
0003%001084 
0003%0014024 
0003700407214 
00032003081 
00032004084 
0003:0040%4 
00033001034 
00032004084 
00031001034 
00032004382 
00032001382 


00031004332. 


000320043382 
0003'0043%2 
0003?0013%2 
0003!0013%2 
00033001382 


C) 


tte 


XINFOPO0231,02127]73 


WORDS 07 THE JOENTIFIER WITH BLANK%1108 
FILL ON THE RIGHT 2110° 

2110" 

WORD 8 %1i10= 


0€214212] SEGMENT NUMBER IN WHICH 110" 
THIS IDENTIFIER WAS DECLARED 


%110- 

0033245] IDENTIFIER ID. NO, %110- 
Z110° 

WORD 9 ELBAT WORD %110" 
%110° 


THIS ARRAY CONTAINS ONE ENTRY FOR EACH ENTRY 

IN THE INFO TABLE, IF YOU HAVE THE INDEX 110" 
OF THE ELBaT WORD FOR AN IDENTIFIER IN %110= 
THE tNeO TABLE YOU CAN FIND THE XINFO WORD%1102 


FOR THE IDENTIFIER BY REFERRING TO? ¥1109 
%110= 

XINFOrINDEX,LINKRe INDEX,LINKC DIV 2] 4110" 
%¥110= 

EACH ENTRY CONTAYNS? ¥1102 
%110™ 


2C21%12) SEGMENT NUMBER IN WHICH 
THIS IDENTIFIER WAS DECL, 
Z110= 
0f33415) IDENTIFIER ID. NO, Zit0- 
IF THIS IDe NO. IS ZERO 
THEN XREF WAS NOT ON 
AT THE TIME THE IDENT 
WAS DECLARED AND ALI, 
FUTURE REFERENCES WILL 


BE DISCARDED, %110= 
%1108 
INTEGER ¥110= 
XREFPT> CONTAINS INDEX OF NEXT AVAILABLE SLOT IN 2440 
XREFAY?, WHEN THIS BECOMES GREATER %110= 
THAN 30 THE CURRENT ARRAY IS DUMPED TO DISK 

AND XReFPT 1S RESET TO ZERO, 110° 
%110% 
XLUN3 THIS VARIABLE CONTROLS THE ASSIGNING OF 4110" 
1D. NO, TO JDENTIFYJERS,. IT {8S INCREMENTED %4110= 
EACH TIME A NEW IDENTIFIER 1S ENCOUNTERED, 2%110*= 
%110= 
DEFINE %110" 
SEGNOF = COLti2ide FIELOS IN XINFO ENTRIES AND WORD 8 OF %110" 
IDNOF «= [£33%15]#, IDENTIFIER RECORDS, 4110= 
%110° 
TYPERFF = Citsl#, FIELDS OF REFERENCE WORDS 21107 
REFINNOF =C6245]#. %110" 
SEQNOF = [21:27] #» %110= 
%110° 
XREFITCINDEX»SEQNO*REFTYPE) = % DEFINE TO ADM INFO TO REF TABLE 4110 
REGIN YF XREF THEN CROSSREFYITCINDEX*SEQNOSREFTYPE)$ END#e %440" 
% %110= 

XMARKCREFTYPE) = % DEFINE TO CHANGE LAST ENTRY IN REF TABLE TO A 


REGIN IF XREF THEN XREFAYOCXREFPT@1)],TYPEREF t= REFTYPE ENND#e. 4110 


XREFDUMPCINDEX) = 


% 
% 


%110« 
DEFINE TO DUMP SYMBOL TABLE INFO FOR IDENTIFIER 


01007190 
01007195 
01007200 
01007205 
01007210 
01007215 
01907220 
01007225 
01007230 
01007235 
01007240 
01007245 
01007250 
01007255 
01007260 
01007265 
01007270 
01007275 
01007280 
01007285 
01007290 
010907295 
01007300 
01007305 
01007310 
01007315 
01007320 
01007325 
01007330 
01007335 
01007340 
01007345 
01007350 
04007355 
01007360 
01007365 
01007370 
01007375 
01007380 
01007385 
01007390 
01007395 
01007400 
01007405 
01007410 
01007415 
01007420 
01007425 
01007430 
01007435 
01007440 
04007445 
01007450 
01007455 
01007460 
01007465 
01007470 


MYAINOIOINMNINMAIANMAAANAINANYNANAANAIAIANAIAIAAMAANMAAAMAAAWAADAAAAANANANANAAANAARNAANAOMNANAANADAOAON 


00033001332 
0003!0013%2 
0003:0013#2 
00033001332 
0003400432 
0003!0043:2 
0003%0043%2 
0003:0043!2 
000330014332 
0003!0043!2 
0003%0043!2 
0003:0013%2 
0003%0015%3 
00033001533 
0003%001533 
000330014583 
00033004533 
0003#0045%3 
0003004533 
00033004533 
00033001533 
0003:0015%3 
0003:001533 
00033001533 
0003!001533 
0003:001533 
00033001533 
00033001533 
00033001533 
00033004533 
00033004533 
00033004533 
00031003533 
00033001533 
000310014533 
00033004533 
0003:004533 
00033004583 
00038001533 
00032001533 
00033004533 
00033004533 
00033001523 
0003001533 
0003!001583 
00032001533 
00033004533 
00032004533 
00031004533 
0003!0015%3 
00031004533 
00033004533 
00033001533 
00032001533 


0003%0045!3. . 


00032001533 
00032001533 


Cy: 5 


C) 


Ce. - ay ae eo MGT ‘eh 


Gs 


BEGIN IF DEFINING. £C1#1] THEN CROSSREFDUMPCINDEX)3 END#>s 
% 
XREFINFOLINDEX] = 


2110= 
R110" 
% DEFINE TO TRANSLATE INFO ROW AND COLUMN T0%110= 


XINFOLCINDEX),LINKRs CINDEXILINKC DIV 2)4#. % X~NFO ROW AND COL 41108 


FORWARDREF 
LBLREF 
DECLRFF 
NORMAL, REF 
ASSIGNREF 


4% %110= 
= O#, % OFFINES FOR DIFFERENT REFERENCE TYPES %110= 
= 44, % %110= 
= Di, % ¥110= 
= Ad, % 4110" 
= S#3 3 %110- 

ARRAY BEGINSTACK(£ 0325513 INTEGER BSPOINT? ¥108= 
2108 


BOOLEAN DEFINING: 


COMMENT INFO CONTAINS ALL THE INFORMATION ABOUT A GIVEN IDENTIFIER 


COMMENT 
FOLLOWING 


OR RESERVED WORN, THE FIRST WORD OF A GIVEN ENTRY 15S 
THE INTERNAL CODE ¢€ OR ELBAT WORD AS IT 1S USUALLY 
CALLED), THE SFCOND WORD CONTAINS THE FORWARD BIT CIN 
F1#1}) FOR PROCEDURES, THE LINK TO PREVIOUS ENTRY CIN 
r4:8))» THE NUMBER OF CHARACTORS IN THE ALPHA REPRESENTA®= 
TION CIN £12867)» AND THE FIRST 5 CHARACTORS OF ALPHA, 
SUCCEDING WORDS CONTAIN THE REMAINING CHARACTORS OF AL,PHAs 
FOLLOWED BY ANY ADDITIONAL INFORMATION, THE ELBAT WORD 
AND THE ALPHA FOR ANY QUANTITY ARE NOT SPLIT ACROSS A ROW 
OF INFO, FOR PURPOSES OF FINDING AN IDENTIFIER OR 
RESERVED WORD THE QUANTITIES ARE SCATTERED INTO 125 
NIFERENT LISTS OR STACKES« WHICH STACK CONTAINS A QUANTITY 
1S GIVEN BY TAKING NAAAAA MOD 425 WHERE N JS THE NUMBER 
OF CHARACTORS AND AAAAA 1S THE FIRST 5 CHARACTORS OF 
ALPHAs FILLED Iu WITH ZEROS FROM THE RIGHT JF NEEDED, 
THIS NUMBER IS CALLED THE SCRAMBLE NUMBER OR INDEX, 
THE FIRST ROW OF INFO IS USED For OTHER PURPOSES, THE 
RESERVED WORDS oCCUPY THE SECOND ROWs. IT IS FILLED DURING 
INUTTIALIZATIONS 

INFO FORMAT 


IS A DESCRIPTION OF THE FORMAT OF ALL TYPES OF ENTRIES 


ENTERED IN INFO? 
THE FIRST WORD OF ALL ENTRIES 1S THE ELBAT WORD, 
THE INCR FIELN €£27%8]) CONTAINS AN INCREMENT WHICH WHEN 
ADDED TO THE CURRENT INDFX INTO INFO YELDSAN INDEX TO ANY 
ADDITIONAL INFO CIF ANY) FOR THIS ENTRY. 


—.G. IF THE tNDEX IS tX THEN 


INFOLCIX#INCR) »LINKRe CIX+INCR), 


LINKC] WILL CONTAIN THE FIRST WORD OF ADDITIONAL INFO, 
THF LINK FIELD OF THE ELBAT WORD IN INFO 1S DJFFERENT FROM 
THAT OF THE ENTRY IN ELBaT PUT IN BY TABLE.THE ENTRY IN ELBAT 
POTNTS TO ITS OWN LOCATION CRELATIVE) IN INFO, 
THE LINK IN INFO POINTS TO THE PREVIOUS ENTRY E.G,e THE 
LINK FROM STACKHEAD WHICH THE CURRENT ENTRY REPLACED, 
FOR SIMPLICITYsI WILL CONSIDER INFO TO BE A ONE DIMENSIONAL 
ARRAY»SO THAT THE BREAKING UP OF THE LINKS INTO ROW AND COLUMN 
WILL NOT DETRACT FROM THe prScuSSJON, 

ASSUME THAT THREE TOENTIFIERS AeBs AND C "SCRAMBLE" INTO 

THe SAME STACKHEAD LOCATION IN THE ORDER OF APPEARANCE, 
_ . FURTHER ASSUME THERE ARE NO OTHER ENTRIES CONNECTED To 
THYS STACKHEAD INDEX, LET THIS STACKHEAD LOCATION BE 


Stud 


NOW THE DECLARATION 


REGIN REAL A»rBel 


IS ENCOUNTERED 


IF THE NEXT AVATLABLE INFO SPACE IS CALLED NEXTINFO 


01007475 
01007480 
01007481 
01007482 
041007483 
01007485 
01007486 
01007490 
01007495 
01007500 
01007600 
01007650 
01008000 
01009000 
01010000 
01011000 
01012000 
01013000 
010144000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
01022000 
01023000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 
01030000 
01031000 
01032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
01042000 
01043000 
01044000 
01945000 
01046000 
01047000 
01048000 
01049000 
01050000 
01051000 
01052000 


AHAHAH HAHAHAHA HHA RH HAA A HAHAHAHA HHA HA HHH TIO INIT DN NO Oo 


00033001533 
0003%004533 
00033001583 
00033004533 
00030014533 
00031001583 
0003!0045!3 
00033004583 
00033004533 
00034004533 
00031001533 
00031001820 
0003!0018:0 
0003;001810 
0003!001830 
000310048!0 
00033001880 
00033001820 
00034004830 
0003:0048t0 
00033001810 


000380078:0. 


00033004810 
00031001830 
00034001830 
00031004880 
0003:001830 
00034001840 
0003!004820 
00033001830 
00031001880 
00032001810 
00031001830 
000300180 
00033001830 
00033004830 
00032001830 
0003:0048:0 
00034001830 
00033004830 
0003%004830 
0003#004830 
00031004830 
00031001830 
0003%004830 
00031004830 
00031004830 
00033001880 
000330048!0 
000330048:0 
0003#0018!0 
0003!0018:0 
000330048!0 
00038001830 
00033001830 
00033004880 
0003#001830 


CO) 


C) 


OG 


oo 


O © 


Oo “Or 


” 


----. INFOUNEXTINFOJ«T, 


THEN A IS ENTERED AS FOLLOWS: CASSUME AN ELBAT WORD T HAS BEEN 


CONSTRUCTED FOR A) 
T,LInKe SCLJ,. CWHICH IS ZERO AT FIRST), 
SfLIJeNEXTINFO, 


NEXTINFOeNEXTINFO+NUMBER OF WORDS IN THIS 


ENTRY, 
NOW SCL] POINTS TO THe FNTRY FOR A TN INFO AND THE ENTRY 
ITSELF CONTAINS THE STOP FLAG ZERO, 
B 1S ENTERED SIMILARLY TO A, 
NOW SclLjy POINTS TO THF FNTRY FOR B AND IT POINTS TO THE 
ENTRY FOR A, 
StMILARLY,AFTER C IS ENTERED 


SEL] POINTS TO CeWHOSE ENTRY POINTS TO & WHOSE ENTRY 


POINTS To aA, 
THE SECOND WORD OF EACH ENTRY IN INFO 1S MADE UP AS FOLLOWS? 
FWOPT =f4%1]eTHIS TELLS WHETHER A PROCEDURE WAS DECLARED 
FORWARD.IT IS RESET AT THE TIME OF TTS ACTUAL 
FULL DECLARATION, 
PURPT =({438] THIS GIVES A DECREMENT WHICH GIVES THE RELATIVE 


INDEX To THE PREVIOUS INFO ENTRY WHEN SUBTRACTED 


FROM THE CURRENT ENTRY INDEX. 
C126] TELLS THE NUMBER oF CHARACTERS IN THE ENTRY, (€<64) 


[18330] CONTAINS THE FIRST FIVE ALPHA CHARACTERS OF THE ENTRY 


AND SUCCEEDING WORDS CONTAIN ALL OVERFLOW IF NEEDED, 
THESE WORDS CONTAIN 8 CHARACTERS EACHsLEFT JUSTIFIED, 
THUS®AN ENTRY FOR SYMBOL FOLLOWED BY AN ENTRY 

FOR xX WOULD APPEAR AS FOLLOWS: 


. INFO] = FLBATWRD (MADE FOR SYMBOL) 
Iti = OP6SYMBO (CP DEPENDS ON PREVIOUS ENTRY) 
f+2 = L 
[+3 & FLBATWRD (MADE FOR X) 
+4 = 031X 


THTS SHOWS THAT JNFOrJ=P} WOULD POINT TO THE BEGINNING OF 
THE ENTRY BEFORE SYMBOL» AND 
TNFOCT+3=3] POINTS TO THE ENTRY FOR SYMBOL, 

ALL ENTRIES OF IDNETIFIERS HAVE THE INFORMATYON DESCRIBED ABOVE 

THAT +S,THE ELBAT WORD FOLLOWED By THE WORD CONTAING THE FIRST 

FIVE CHARACTERS OF ALPHAsAND ANY ADDITIONAL WORDS OF ALPHA IF 

NECESSARY, 

THIS ~S. SUFFICIENT FoR ENTRIES OF THE FOLLOWING TYPESs 
REAL, 
BOOLEAN 
INTEGER 
ALPHA 
FILE 

. FORMAT 
LYST 
OTHFR ENTRIES REQUIRE ADDITIONAL INFORMATION: 

ARRAYS: 

THE FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 
DIMENSTONSCIN THE LOW ORDER PART),.[40:8] 

. .EACH SUCCEFDING WORD CONTAINS INFORMATION ABOUT EACH LOWER 
ROUND TN ORnFR OF APPEARANCFE+ONF WORD FOR FACH LOWER BOUND, 
THESE WORDS ARE MANE UP AS FOLLOWS: 

r23%12] sADD OPERATOR SYLI,ABLE ¢0104) OR 
SUB OPERATOR SYLLABLE ¢03042 CORRESPONDING 
RESPECTIVELY TO WHETHER THE LOWER BOUND 1S 


01053000 
01054000 
01055000 
01056000 
01057000 
01058000 
01059000 
01060000 
01061000 


01062000 . 


01063000 
01064000 
01065000 
01066000 
01067000 
01068000 
01069000 
01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
01076000 
01077000 
01078000 
01079000 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01086000 
01087000 
01088000 
01089000 
01090000 
01094000 
01092000 
01093000 
01094000 
01095000 
01096000 
01097000 
01098000 
01099000 
01100000 


- 01101000 


01102000 
01103000 
01104000 
01105000 
01106000 
01107000 
01108000 
01109000 


AAD ANAM DAN AH ATF AHH AA AHA HAHA AAA TA AAA AA AHH A A A A HH 


000310048!0 
00033001830 
000310048:0 
00033003830 
000330048:0 
0003#0018:0 
0003001830 
0003!001;8!0 
0003!0048:0 
00032001830 
00031001820 
0003:004810 
00033001880 
00031001880 
0003!0018:0 
000310018!0 
0003!00;8:0 
0003001830 


0003004183 0- 


000330018:0 
0003#0018:0 
0003!0018t0 
00033001830 
0003:0018:0 
0003:001,810 
0003%0018:0 
00033001830 
00032001830 
0003:0018:0 
00033004830 
0003:001,8:0 
000380048:0 
0003800;8!0 
000380018:0 
000320018:0 
0003!0018:0 
000380013820 
00033004840 
000320048:0 


0003001830 


00031001810 
0003#0048t0 
0003:0018:0 
0003!0018:0 
00033004820 
0003:001830 
0003!0018!0 
00033001830 
00033001810 
00031004880 
0003!001830 
00033001830 
0003#00,8:0 
000310048!0 
00033001810 
0003%0048%0 
0003#004810 


} 


) 


at 


eae © 


TO BE ADDED TO THE SUBSCRIPT IN INDEXING OR 

. SUBTRACTED. 

r35311) 514 BIT ADDRESS OF LOWER BOUND»IF THE LOWER BOUND 
REQUIRES A PRT OR STACK CELL, OTHERWISE THE BrT 
35 1S IGNORED AND THE NEXT TEN BITS¢(36810]) 
REPRESENT THE ACTUAL VALUE OF THE LOWER BOUND 


r46??j =00 OR 10 


DEPENDING ON WHETHER THE £35211] VALUE 


1S A LITERAL OR OPERAND* RESPECTIVELY, 


PROCEDURES: 


THE FIRST WORD OF ADDITIONAL INFO CONTAINS THE NUMBER OF 


PARAMETERS [40:8] 


If A STREAM PROCEDURE THEN THIS WORD CONTAINS ALSO IN 


r13311] ENDING 
C736) NO OF LABELS 
OF LOCALS, 


PRT ADDRESS FOR LABELS» 


REQUTRING PRT ADDRESSES,» AND £136] NUMRER 


SUCCEEDING WORDS CONE FOR EACH FORMAL PARAMETER? IN ORDER 
OF APPFARANCE IN FORMAL PARAPART) ARE 
FLBAT WORNS SPECIFYING TYPE OF FACH PARAMETER AND WHETHER 


VaALUF OR NOT¢p10#4]), 


THE ADDRESS¢r1624111) 


1S THE Fe ADDRESS FOR EACH, 


TF THE PARAMETER JS AN ARRAY THEN THF INCR FIELD¢C(C27328)) 

CoNTATINS THE NUMBER oF DIMENSIONS. OTHERWISE INCR IS MEANINGLESS. 
LYINKCL35313]) IS MEANINGLESS, 

IF A STREAM PROCEDURE THEN THE CLASS OF EACH PARAMATER JS 

THAT OF LOCAL 1D OR FILE JD» NEPENDING ON WHETHER OR NOT A RELEASE 
IS DONE IN THe STREAM PROCEDURE, 


LABELS: 


AT DECLARATION TIME THE ANDITrONAL INFO CONTAINS O, 


BrT TELLS WHETHER OR 


THE SIGN 
NOT THE NEFINITION POINT HAS BEEN REACHED, 


IF SIGN = O» THEN £36212] CONTAINS AN ADDRESS IN CODEARRAY OF A 


LIST OF FORWARD REFERENCES TO THIS LABEL, 


0, IF SIGN =0» THEN 
SWITCHES? 


THE END OF LIST FLAG IS 
(36242) CONTAINS L FOR THIS LABEL, 


THE FIELD £€36:12] CONTAINS L FOR THE BEGINNING OF SWITCH DECLAR™ 


ATION. [£24342] CONTAINS 1, FOR FIRST SIMPLE REFERENCE TO SWITCH, 
IF SWITCH (TS NOT SIMPLE» IT IS MARKED FORMALe HERE SIMPLE MEANS 
No POSSIBILITY OF JUMPING OUT OF A BLOCK, 3 
DEFINE MON =l 1: 1)#» 
CLASS =E 2: 71]#. 
FORMALEEL 9: 1) #» 
a0) =(10: ll#> 
LVL =[Eq4i: 518, 
ADDRESS=C16:11 1] #5 
INcR =Lo7: Ol]#e 
LINK s[35:13]4> 
SBITF =£21:6]#. % STARTING BIT FOR FIELD ID, 4112" 
NBITF =C27:6)#, % NUMBER OF BITS FOR FIELD I10.%112* 
LINKR =£35: 51#> 
LINK =(40: 8143 


COMMENT THESE DEFINES ARE 


USFD TO PICK APART THE ELBAT WORD. 


MON 1S THE BrT WHICH 1S ON TF THE QUANTITY IS eee 


CLASS {S THE 
QUANTITY, 


PR»NCIPAL IDENTIFICATION OF A GIVEN 


FORMAL IS THE BrT WHICH IS ON IF THE QUANTITY IS A FORMAL 
PARAMETER, 

Vo IS THE VALUE=OWN BIT. IF FORMAL = 4 THEN THE BYT 
DISTINGUISHES VALUE PARAMETERS FROM OTHERS, IF 


01110000 
01411000 
01112000 
01113000 
01114000 
01115000 
01116000 
01117000 
01118000 
01119000 
01120000 
01121000 
01122000 
01123000 
01124000 
01125000 
01126000 
01127000 
01428000 
01129000 
04130000 
01131000 
01132000 
01133000 
01134000 
01135000 
01136000 
01137000 
01138000 
014139000 
01140000 
01143000 
01142000 
01143000 
01144000 
01145000 
01146000 
01147000 
01148000 
01149000 
01150000 
01151000 
01152000 
01153000 
01154000 
01154200 
01154300 
01155000 
01156000 
014157000 
01158000 
01159000 
01160000 
01161000 


. 01162000 


01163000 
01164000 


AAHAABR AH HAAN NANA AAA BAA AAS A AH A tH TA A A A AA A Ht YH ts st 


0003!0018:0 
000320018:0 
0003:00;1,830 
0003004830 
0003!00;8!0 
00033001830 
00032001810 
00033001810 
0003:0018%0 
0003!20048!0 
00032001820 
00032001810 
0003:0018340 
00032001830 
0003:0018!0 
0003:0048:0 
000310014830 
0003:0018:0 
00031001830 
0003:0048:0 
0003:0048:0 
0003%70048:0 
0003%0048:0 
00032004830 
0003001830 
00032004820 
00038'0018!0 
000310014830 
0003'004830 
00032004830 
0003#0018!0 
0003200748!0 
000370048%0 
0003'0018:0 
00033001830 
00032001810 
0003'001830 
000320048:0 
000370048:0 
000330014820 
00033001880 
0003:001830 
00032001830 
00032001820 
000330046:0 
00032003830 
000330018:0 
0003:001830 
000330018!:0 
0003:00148:0 
0003:004830 
0003:20076:0 
0003#00;,830 
0003'0018:0 
0003#00;48:0 
0003:0018:0 
0003#0018%0 


Ch Lye. 3 


Co “GY a “ke 3) 


C) 


ne 


o Cy 


Or @. °O.” 


) 


O 


FORMAL 
FROM OTHERS, 
LVL GIVES THE LEVEL AT WHICH A QUANTITY WAS DECLARED, 


= 0 THEN THE BIT DISTINGUISHES OWN VARIABLES 


ADDRESS GIVES THE STACK OR PRT ADDRESS, 


INCR GIVES A RELATIVE LINK TO ANY ADDITIONAL INFORMATION 


NFEDED*® RELATIVE TO THE LOCATION IN INFO, 


LINK CONTATNS A LINK TO THE LOCATION IN INFO IF THE 


QUANTITY LIPS IN FLBAT» 
NEXT 


OTHERWISE IT LINKS TO THF 
TTEM IN THE STACK, ZERO 1S AN END FLAG, 


LINKR AND LINKC ARE SURDIVISTONS OF LINKe3 


COMMENT CLASSES FOR ALL QUANTITIES = OCTAL CLASS IS IN COMMENTS? 
COMMENT CLASSES FOR IDENTIFIERS? 
are DEFINE UNKNOWNID =O0#> COMMENT 0003 
STLABID =O1t» COMMENT 0013 
LOcLID =O2H» COMMENT 0023 
NFFINEDID =03%, COMMENT 0033 
LISTID =O4t, COMMENT 0043 
FRMT TN =05#, COMMENT 0053 
“4 : SUPERFRMTID =OGh» COMMENT 0063 
REALSUBID =07# » COMMENT 0073 
SUBID =08#» COMMENT 0103 
SWITCHID =09r» COMMENT O1143 
PROCID =10#» COMMENT 0123 
INTRNSICPROCID =11i#> COMMENT 0133 
_ sTRPROCID =12H» COMMENT 0143 
ROOSTRPROeIN si3#, COMMENT 0153 
RFALSTRPROCIN =14#, COMMENT 0463 
ALFASTRPROCID =454>» COMMENT 0473 
INTSTRPROCID =15#» COMMENT 0173 
BooPROCID =17#» COMMENT 0213 
me REALPROCID =18H» COMMENT 0223 
ALFAPROACID =19H> COMMENT 0233 
INTPROCID =19H> COMMENT 0233 
ROOID FQ. fr COMMENT 0253 
RE ALIO S22H» COMMENT 026; 
ALFAIN =234» COMMENT 0273 
INTID =234s COMMENT 0273 
ROOARRAYIN =25#8 » COMMENT 0313 
REF ALARRAYID =26#» COMMENT 03923 
- ALFAARRAYIN =27H#» COMMENT 0333 
INTARRAYID =27#» COMMENT 0333 
NAMED =30#> COMMENT 0363 
INTNAME TD =3,#> COMMENT 0373 
LABELID =32#» COMMENT 0403 
COMMENT CLASSES FOR PRIMARY BEGINNERS$ 
: TRUTHV =33#> COMMENT 0413 
NONLITNO =34H#» COMMENT 0423 
LITNO 3354» COMMENT 0433 
: 2 STRNGCON =36#» COMMENT 0443 
LEFTPAREN =37#> COMMENT 0453 
POLTSHV =38#, COMMENT 0463 
ASTRISK 3394, COMMENT O473 
COMMENT CLASS FoR ALL DEC |,ARATORS? 
DECLARATORS =NQ#» COMMENT 0503 
Bee COMMENT CLASSES FOR STATEMENT BEGINNERS 
NOUBLFYV HOH COMMENT 0523 
FORV FAZH» COMMENT 0533 


01165000 
01166000 
01167000 
01168000 
01169000 
01170000 
01171000 
01172000 
01173000 
01174000 
01175000 


01176000. 


01177000 
01178000 
01179000 
01180000 
01181000 
01182000 
01183000 
01184000 
01185000 
01186000 
01187000 
01188000 
01189000 
01190000 
01191000 
01497000 
01193000 
01194000 
01195000 
01196000 
01197000 
01198000 
01199000 
01200000 
01201000 
01202000 
01203000 
01204000 
01205000 
01205200 
01205400 
01206000 
01207000 
01208000 
01209000 
01240000 
01211000 
01212000 
01212100 
01212200 
01243000 
01214000 
01215000 
01222000 
012273000 


AABH HAH HH HAHAHAHAHAHA A THA AA H A H A AHA AA ATH AFA A TH Ht A a tt 


000330018:0 
0003%0018:0 
0003:0048:0 
0003:001880 
0003#00418:0 
0003#00;8!0 
0003:0018:0 
0003:20048!0 
0003:001830 
0003°0048:0 
0003001830 
00033001830 
0003300148!0 
00032001830 
0003:003820 
0003004810 
0003:0018:0 
00033004880 
0003004 8?0 
000330048!0 
0003:0018t0 
0003:0018!0 
0003'0018:0 
0003:0018:0 
0003:0018t0 
0003:0018:0 
0003200;8:20 
0003300;,8:0 
0003:0048+0 
00033001830 
0003001830 
00033001820 
00031001830 
0003:0018:0 
0003'0018:0 
0003:0018:0 
0003:0018:0 
00032001830 
0003!0018:0 
0003#0018!0 
0003%001880 
00033004820 
0003!00148#0 
0003%0018!0 
00032004830 
00033001830 
0003:30018?0 
0003!0018t0 
0003!0018:0 
0003:0018:0 
0003200148:0 
00032004830 
0003!0048!0 
00032004880 
0003:0018:0 
0003:0048!0 
0003!001840 


{) 


C) 


) 


COMMENT 


COMMENT 


COMMENT 


COMMENT 0543 
COMMENT 0553 
COMMENT 0563 
COMMENT 0573 
COMMENT 0603 
COMMENT 0643 
COMMENT 0693 
COMMENT 0633 
COMMENT 0643 
COMMENT 0653 
COMMENT 0663 
RESERVED WORDS: 
COMMENT 0673 
COMMENT 0703 
COMMENT 0713 
COMMENT 0733 
COMMENT 0733 
COMMENT O74 
COMMENT 0753 
COMMENT 0763 
COMMENT 0773 
COMMENT 1003 
COMMENT 1013 
COMMENT 1023 
COMMENT 1033 
COMMENT 1043 
COMMENT 1053 
COMMENT 1063 


CLASSES FOR VARyOUS MISCELLANEOUS QUANTITIESS 


COMMENT 1073 
COMMENT 1103 
COMMENT 41413 
COMMENT 1123 
COMMENT 1133 
COMMENT 1143 
COMMENT 115; 
COMMENT 1163 
COMMENT 1173 
COMMENT 1203 
COMMENT 1243 
COMMENT 4293 
COMMENT 1233 
COMMENT 1243 
COMMENT 4253 


COMMENT 1263 
COMMENT 1273 
COMMENT 1303 
COMMENT 1313 
COMMENT 1323 
COMMENT 1333 
COMMENT 1343 
COMMENT 1353 
COMMENT 4363 
COMMENT 4373 
COMMENT 1403 


WHILEY SAMts 
nov S45k.5 
UNTTLY Z46#s 
FLSFYV SA7H» 
FNDV =4BHs 
CASEV aAQ#» 
SEMICOLON =50#, 
IFV =54#>» 
GOV =59H » 
TOCLASS F53#» 
REGINV S54. 
CLASSES FOR STREAM 
STV =55#. | 
nra =56¢, 
CTV =57#, 
TALLYV =58#, 
DSV =SO#» 
SKIPV =60#» 
JUMPY =61#» 
DRY F6QH» 
SRY 63H» 
TOGGLEV Z=OUH» 
scv ZA5 x» 
LOGY 66H» 
nev =O7H#s 
LOcALV =6B#s 
Lity SO9#H» 
TRNSFER =7O0#» 
COMMENTYV =71#>» 
FORWARDY a7Od» 
STEPV =73H»s 
THENYV BT AH s 
TOV 75H» 
VALUEV =76#» 
WITHYV =77T#s 
COLON =7B#>» 
COMMA =79#, 
cCROSSHATCH =BO#, 
LE TBRKET =O4H, 
PERTOD zBote 
RTBRKET =8 349 
RTPAREN =Oq#e 
AMPERSAND =OBS#» 
CLASSES FOR OPERATORS3 
HEXOP =B6Hp 
BITOP =A7H » 
ISOLATE =O8H#» 
OPERATOR =UOR» 
NOTOP =90#, 
ASSTGNOP =94#, 
FQVOP =9Q#, 
ORQOP =93#» 
RELOP =95#» 
ADOP S96#» 
MULOP =O7Hs 


COMMENT 1413 


S115" 


01224000 
01225000 
01226000 
01227000 
01228000 
01229000 
01230000 
012337000 
01232000 
01233000 
01234000 
01235000 
01236000 
01237000 
01238000 
01239000 
04240000 
01241000 
01742000 
01243000 
01244000 
01245000 
01246000 
012747000 
01248000 
01249000 
01250000 
01251000 
01252000 
01753000 
01254000 
01255000 
01256000 
01257000 
01258000 
01259000 
01260000 
01261000 
01262000 
01263000 
01264000 
01265000 
01266000 


01266500. 


01267000 
01268000 
01269000 
01270000 
01271000 
01272000 
01273000 
01274000 
01275000 
01276000 
01277000 
01278000 
01278500 


Te ee eee ee en ee ee ee ee ee ne ee ee ee ee ee 


0003:004830 
000330018%0 
000320014830 
0003:001830 
00032004830 
0003:0048!0 
00032001830 
00035004820 
000310041820 
0003001830 
000320018:0 
0003:0018:0 
00033001830 
0003%0018:0 
0003#00168:0 
0003'0018t0 
0003:00,8!%0 
0003!0018:0 
0003%0048!0 
0003!0018:10 
0003:0018:0 
0003:0018:0 
0003:0018:10 
0003:0018:30 
0003:0018:0 
0003:0018:30 
000330018:0 
0003:0018:0 
0003:0018:0 
0003'00148:0 
000370018:0 
000380018320 
00035001870 
0003%0018:t0 
00033001810 
00033001830 
0003'0018:0 
0003:0018:0 
000320048!0 
00035001830 
0003300780 
00033004810 
00031t0018:0 
00032004830 
0003!001830 
0003:'0018!0 
00033004830 
0003:007,8t0 
000330018:0 
0003!0018:0 
0003?0018:0 
00033001830 
00032004810 
00035004830 
0003%0048!0 
00033004810 
0003:0018!0 


CO) 


Ge ae ae Cae a a 


O 


Cy 


t) 


tNTRINSTCADR 


REAL TyMed3 


BOOLEAN ASTOG$ 


BOOLEAN SAF? 


INTEGER SCRAM; 
COMMENT SCRAM CONTAINS THE SCRAMBLE 
OR RESERVED WORD SCANNED? 
ALPHA ARRAY ACCUMCO:10]3: 
COMMENT ACCUM HOLDS THE ALPHA AND CHARACTER COUNT OF THE LAST 


SCANNED ITEM 
IN INFOQ» 


T 


IN ADDRFSS)3 


%1ie- 


aiien 
%112= 
®1iite= 


150#, % USED IN BUILDING INTABLE ® 09414120 
CMAXINTRINSIC DIV 30783 


STRING =99H» COMMENT 
FIELDID =1?5#, COMMENT 
COMMENT SURBCLASSFS FOR nFcbLARATORS 
OwNy =O4#, COMMENT 
SAVEV sO, COMMENT 
ROOY =034, COMMENT 
REALV =O4ks COMMENT 
ALFAV =05# >» COMMENT 
INTV =O5H#» COMMENT 
LABELV =O7Hs COMMENT 
DUMPV =O8H. COMMENT 
SURV SOQ9#* COMMENT 
OUTV =10#e COMMENT 
INY trlid#, COMMENT 
MONTTORV =12h» COMMENT 
SWITCHV S134» COMMENT 
PROCV = hds COMMENT 
ARRAY =15#, COMMENT 
NAMEV - 3168, COMMENT 
FILEV =17#s COMMENT 
STREAMV =1A4s COMMENT 
DEFINEYV =19Hs COMMENT 
AUXMEMY = 208» COMMENT 
FIELDV H21%3 COMMENT 
DEFINE nnoFs = BH, 
ANDES = PB, 
PNFES = 29H, 
LDES = 30%, 
CHAR s 34%, 
FACTOP = ASTRISK#,. 
OPERATORS = HEXOP#, 
FILETD = O08» 
MAXINTRINSIC oc 


THAT IS aCCUMC1) 
HAS ANY ADDITIONAL CHARACTERS. 
THE ELBAT WORD BY THE ENTER ROUTINES; 


ARRAY STACKHEAD[O12513 


% RESERVES SEG 


OONAAAAAs ACCUMET) 


FOR INTABLE 


INDEX FOR THE LAST IDENTIFIER 


IN A FORM COMPATIBLE WITH ITS APPEARANCE 


» I> Is 


ACCUMEO] IS USED FOR 


COMMENT STACKHEADCN] CONTAINS AN INDEX INTO INFO GIVING THE TOP 
ITEM IN THE N™TH STACK; 


INTEGER COUNT 


r 
ry 


COMMENT COUNT CONTAINS THF NUMBER OF CHARACTORS OF THE LAST ITEM 


ALPHA Q3 


SCANNED; 


COMMENT @ CONTAINS ACCUM( 1) FOR THE LAST 
WORD SCANNED$ 


ARRAY FLBATLOP75]3 


INTEGER I, 


NXTELBT3 


INENTIFIER OR RESERVED 


COMMENT EIBAT 1S AN ARRAY HOLDING ELBAT WORDS FOR RECENTLY SCANNED 


01278600 
01278700 
01279000 
01280000 
01281000 
01282000 
01283000 
01284000 
01285000 
01786000 
01287000 
01288000 
01289000 
01290000 
01291000 
01292000 
01293000 
01294000 


01295000. 


01296000 
01297000 
91298000 
1298500 
01298600 
01299000 
01299010 
01299020 
01299030 
01299040 
01299100 
01299200 
01299300 
01299400 
01799500 
01300000 
01300100 
01300200 
01301000 
01302000 
01303000 
01304000 
01305000 
01306000 
01307000 
01308000 
01309000 
01310000 
01311000 
01312000 
01313000 
01314000 
01315000 
01316000 
01317000 
01318000 
01319000 
01320000 
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~—-000380018:0 - 


0003:0018:0 
00031001830 


00033004810. 


0003*0048!0 
00032001830 
00032001830 
00038004670 
0003:!004830 
000320048:!0 
00031001810 
0003:0018:0 
0003:0018:0 
0003:0018:0 
0003:0018:0 
0003:001810 
00032004840 
0003:00;880 
00033004820 
0003%0018:0 
00032004820 


0003!004820 . 


00031001830 
00033001830 
0003001830 
0003:0048%0 
0003!004610 


000350018:0 . 


00032001830 
0003:004830 
00033001870 
00032001810 
0003!0048:0 
00032004830 
0003%0048:0 
00032001820 
0003:004,8:0 
00033004830 
0003:30018:0 
0003200180 
0003200180 
00037002031 
0003F0020!1 
00032002031 
0003?002031 
0003:0020%1 
00032002031 
0003:?:0023%2 
00033002332 
0003:0023%2 
0003!0023%2 
0003!0023!2 
00033002312 
00038002332 
0003:8Q0023%2 
0003:00293!:2 
0003002533 
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QUANTITIES» THF TABLE ROUTINE MAINTAINS THIS ARRAY, 
CFLBAT 1S TABLE SPELLFD BACKWARDS.) THE TABLE ROUTINE 
GUARANTTES THAT ELBAT ALWAYS CONTAINS THE ELBAT WORDS 
FOR THE LAST 10 QUANTTTYES SCANNED, NXTELBT 1S AN INDEX 
POINTING TO THE NEXT AVAILABLE WORD IN ELBATe I US AN 
INDEX USED BY THE REST oF THE COMPILER To FETCH THINGS 
FROM ELBATe I 18 ALSO MAINTAINED BY THE TABLE ROUTINES 
INTEGER ELCLASS3 
COMMENT ELCLASS USUALLY CONTAINS ELBATEIIJ.chLass; 
INTEGER FCRe NcRe LOReTLCReCLCRS 
INTEGER MaXTbeR3 
COMMENT FCR CONTAINS ARSOLUTE ANDRESS OF THE FIRST CHARACTOR OF 
THE CARD 1tMAGE CURRENTLY BETNG SCANNED, NCR THE ADDRESS 
OF Tur NEXT CHARACTOR TO BE SCANNED, AND LCR THE LAST 
CHARACTOR (COLUMN 732. TLCR AND CLCR CONTAIN ADDRESS oF 
THE |,AST CHARACTER IN THE TAPE AND CARD BUFFERS, MAXTLCR 
IS THE MAXIMUM oF TLCOR WHEN THE IMPUT IS BLOCKED} 
ARRAY TEND *46269]} 


DEFINE PRTIBASE=129#*PRTOP=896#3 COMMENT PASE AND TOP OF PRT; 
ARRAY PRTCPRTBASE:PRTOP]3 
INTEGER DISKADR»CORADR$ COMMENT GLORALS FOR PROGDESCRLODR? 
INTEGER SGAVLSCOMMENT NEXT AVAILABLE SEGMENT NUMBER? 
INTEGER SGNOSCOMMENT THIS 1S THE CURRENT SFGMENT NUMBERS 
ARRAY COP,WOP[L024127)3 
COMMENT THF EM1T ROUTYNES PLACF EACH SYLLABLE INTO THE EDO ARRAY 
AS SPECIFIED BY "L", 
JF THE DEBUGTOG IS TRUE COP AND WOP ARE FILLED WITH 
THE BCD FoR THE QOpPERATORS* OTHERWISE THEY ARE NoT USED$3 
REAL  {.ASTENTRY $ 
COMMENT LASTENTRY IS USED BY EMITNUM AND CONSTANTCLEANe IT POINTS 
TNTO INFOLOex] aT THE NEXT AVAILABLE CELL FOR CONSTANTS? 
BOOLEAN MRCLEAN 3 
COMMENT NO CONSTANTCLEAN acTION TAKES PLace WHILF MRCLEAN IS 
FALSE. THIS FEATURE IS USED By BLOCK BECAUSE OF THE 
POSSIBILITY THAT CONSTANTCLEAN WrLL USE JNFOCNEXTINEO] 
NURING AN ARRAY DECLARATION 3 
REAL GT1eGT2eGT3eGT4-GT5} 
INTEGER GTIa3 
COMMENT THESE VARIABLES ARE USED FoR TEMPORARY STQORAGE3 
INTEGER RESULTS 
COMMENT THIS VARTABLE 1S USED FoR A DUAL PURPOSE BY THE TABLE 
ROUTINE ANO THE SCANNER.» THE TABLE ROUTINE USES THIS 
VARIABLE TO SPECIFY SCANNER OPERATIONS AND THE SCANNER 
USES IT TO INFORM THE TABLE ROUTINE OF THE ACTION TAKEN} 
INTEGER. LASTUSEN? 
COMMENT LASTUSEND IS A VARTARLE THAT CONTROLS THE ACTION OF 
RFANACARDs THE ROUTING WHICH READS CARDS AND INITIALIZES 
OR PREPARES THE CARN FOR THE SCANNER, 
LASTUSFD LAST CARD READ FROM 


fe en et ee Oe OD ae ee me ae te ee ee Oe OF Oe ee oy FF oe 


1 CARD READER ONLY» NO TAPE, 

2 CARD READFR, TAPE AND CARD MERGE, 
3 TAPE» TAPE AND CARD MERGE, 

4 INITIALIZATION ONLY* CARD ONLY, 


‘ 
BOOLEAN LINKTOG$ 


01321000 
01322000 
01323000 
01324000 
01325000 
01326000 
01327000 
01328000 
01329000 
01330000 
01331000 
01332000 
01333000 
01334000 
01335000 
01336000 
01337000 
01340000 
01341000 
01342000 
01343000 
01344000 
01369000 
01370000 
01371000 
01377000 
01373000 
041374000 
01375000 
01376000 
01377000 
01378000 
01379000 
01380000 
01381000 
01382000 
01383000 
01384000 
01384500 
01385000 
01386000 
01387000 
01388000 
01389000 
01390000 
01391000 
01392000 
01393000 
01394000 
01394500 
01394600 
01395000 
01396000 
01397000 
01398000 
01398300 
01399000 
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0003:002533 
0003:0025:3 
0003:00953 3 
00032009583 
00031009533 
00037002533 
0003:002583 
0003:002533 
00033002533 
00032002533 
00031002533 
00032002533 
00035002533 
00033009533 
00038§0095%3 
00034002533 
00032002533 
0003!0025%3 
0003:0028:0 
0003:002B830 
000340026:0 
00038003021 
00033003031 
00032003031 
00038003081 
00038003420 
0003200340 
0003003430 
0003500340 
000320034%0 
0003:0034:10 
0003:0034:0 
0003:'0034:0 
00033003430 
0003:0034:0 
00032003430 
0003:00341t0 
00032003420 
0003?0034:0 
0003!0034%0 
0003:20034%0 
0003!0034!20 
00033003480 
0003:0034%0 
0003:003430 
0003:0034:0 
0003#0034t0 
0003:003480 
0003:003430 
000330034:0 
00032003480 
00033003430 
0003003410 
0003003430 
00031003410 
0003200340 
0003#003410 


CP CY. a ie ot 45 


C) 


C) 


Or © 


COMMENT LINKTOG IS FALSE YF THE LAST THING EMITTED 1S A LINK» 
OTHERWISE IT IS TRUE; 
INTEGER LEVELS FRSTLFEVEL* SUBLEVEL»MODE3 
COMMENT THESE VARIABLES ARF MAYNTAINED BY THE BLOCK ROUTINE TO KEFP 
TRACK OF LEVELS OF DEFINITION, LEVEL GIVES THE DEPTH OF 
NESTING IN DEFINITION, WHERE FACH BLOCK AND EACH PROCFDURE 
beer Se. GrVES RySe TO A NEW LEVEL, SUBLFVEL GIVES THE LEVEL OF 
THE PARAMETERS oF THE PROCEDURE CURRENTLY BEING COMPILED. 
FRSTLEVEL IS THE LEVE|, oF THE PARAMETERS oF THE MOST 
GLOBAL OF THE PROCEDURES CURRENTLY BEING COMPILED, MODE 
TS THE CURRENT DEPTH oF THE PROCEDURE IN WHICH WE ARE 
NESTED CAT COMPILE TIME): 
ae ne BOOLEAN ERRORTOG; 
COMMENT ERRORTOG IS TRUE IF MESSAGES ARE CURRENTLY ACCEPTABLE TO THE 
FRROR ROUTINES, FRRORCOUNT IS THE COUNT OF ERROR MSSqaS3 
ey BOOLEAN ENNDTOGs COMMENT ENnTOG TrLLS THE TaBphLe TO aLLOw 
COMMENT TO Be PASSED BACK TO COMPOUNDTAIL3 
BOOLEAN STREAMTOG: 


ae : . COMMENT STREAMTOG IS TRUE IF WE ARE COMPILING STREAM STATEMENT, JT 


IS USED To CONTROL COUMPOUNDTAIL3 
DEFINE FS = {#»s Fp = O#* FL = 3#9 FR =4#3 
COMMENT THESE DEFINES ARE USED WHEN CALLING THE VARIABLE ROUTINE s 
THEIR PURPOSES 1S TO TELL VARIABLE WHO IS CALLING, 
THEIR MEANING IS! 
FS MEANS FROM STATEMENT? 
FP Mea~Ns FROM PRIMARY» 
FL MeaNsS FROM LYST» 
FR MeANS FROM FOR} 
INTEGER L3 
COMMENT I IS THE LOCATION OF THE NEXT SYLLABLE To BE EMITTED? 
DEFINE BLOCKCTR = 46%» JUNK = 47 #5 XITR = 18 #0 LSTRIN = 1983 
DEFINE ATYPE =3%» BTYPE=ATYPE#eDTYPESATYPES#3 
BOOLEAN TB1? 
COMMENT TB1 1S A TEMPORARY BOOLEAN VARIABLE? 
INTEGER JUMPCTR3 
COMMENT JUMPCTR 1S A VARIABLE USED FOR COMMUNICATION BETWFEN RLOCK 
ee cds AND GENGO, IT GIVES HIGHEST LEVEL TO WHICH A JUMP HAS 
BEEN MADE FROM WITHIN A THE PRESENTLY BEING COMPILED 
SEGMENT. THE Bj'0CK COMPILES CODE To INCREMENT AND DECRE@ 
NENT THE BLOCKCTR ON THE BASIS oF JUMPCTR AT COMPLETION 
OF CoMPILATION oF A SEGMENT @ I.Ee THE BLOCKCTR IS TALLIED 
IF LEVEL = JUMPCTR? 


DEFINE BUMP = Lebere; 
COMMENT BUMPL 1S USED MOSTLY TO PREPARE A FORWARD JUMP3 

DEFINE fOMAX = LABELTD#F? 
COMMENT tOMAX 1S THE MAXIWUy CLASS NUMBER FOR IDENTIFIERS} 

INTEGER NEFINECTRsDEFINEINDEX? 
REAI, JOINFOs COMMENT POINTS TO PSEUDO LABEL FOR JUMP OUTS; 

LPRT» COMMENT SHOWS LOCATION oF THE LAST LABEL IN THE PRT 3 
NFSTLEVELs» COMMENT COUNTS NESTING FOR GO TO AND JUMP OUTS; 
JUMPLEVELS COMMENT NUMBER OF LEVELS To BE JUMPED ouUT3 

COMMENT THE REALS ABOVE ARE FOR STREAM STATEMENTS 
ARRAY MacROl0135)35 


01400000 
01401000 
01402000 
01403000 
01404000 
01405000 
01406000 
01407000 
01408000 
01409000 
01410000 
01411000 
01412000 
01413000 
01414000 
01415000 
01446000 
01417000 
01418000 
01419000 
01420000 
01421000 
01422000 
01423000 
01424000 
01425000 
01426000 
01427000 
01498000 
01429000 
01430000 
01452000 
01457000 
01458000 
01459000 
01460000 
01461000 
01462000 
01463000 
01464000 
01465000 
01466000 
01467000 
01468000 
01469000 
01470000 
01477000 
01478000 
04479000 
01480000 
01481000 
01482000 
01483000 
01484000 
01485000 
01486000 
01487000 
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000350034:0- 


0003%0034:0 
00033003480 


0003300340... ...- 


00033003420 
0003:0034!0 
0003#0034!0 
00033003410 
0003:30034!0 
0003%003430 
00031003430 
00033003430 
0003!0034:0 
000320034280 
0003003430 
00032003410 
0003:003430 
00033003420 
000310034?0 
0003?003430 
00033003420 
00033003430 
00033003410 
0003!:0034:0 
0003:0034:0 
00033003430 
0003003480 
00031003410 
00032003430 
00031003430 
00038003410 
00034003480 
0003:0034:0 
00033003410 
00031003430 
000323003480 
0003:00346t0 
00032003420 
0003%0034%0 
0003*0034!0 
0003:0034:0 
00033003430 
00031003410 
0003:0034:0 
0003;003430 
00032003480 
0003:0034:0 
0003!003430 
00032003410 
000320034%0 
0003:0034%0 
0003%003430 
0003:0034!0 
0003:0034%0 
00033003430 
0003:0034:0 
0003:0034:0 
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COMMENT MacRO [TS FILLEn WITH SYLLaBLES FOR STREAM STATEMENTS 
P, COMMENT CONTAINS NuMBER OF FORMALS FOR STREAM PROCS} 

Z3 COMMENT CONTAINS 1ST WORD OF JNFO FOR STREAM FUNCTIONS 
ARRAY NEWNTAPRUFLOS9I; 
SAVE ARRAY DEFTNEARRAYL 033413 


Real 


co 


INTEG 
co 


INTEGER DIALAsDIALB: 


K116" 


MMENT THESE VARTABLES ARE USED TO CONTROL ACTION OF THE DEFINE, 
DEFINECTR COUNTS DEPTH OF NESTING OF DEFINE=# PAIRS, 
THE CROSSHATCH PART OF THE TABLE ROUTINE USES DEFINECTR 
To DETERMINE THE MEANING OF A CROSSHATCH,. ODEFINEINDEX IS 
THE NEXT AVAILABLE CELL IN THE DEFINEARRAY» THE DEFINE 
ARRAY HOLDS THE ALPHA OF THE DEFINE BEING RECREATED AND 
THE PREVIOUS VALUFS OF LASTUSEDs LCR» AND NCR} 


ER BFGINGCTR3 


MMENT BEGINCTR GIVES THe NUMBER OF UNMATCHED BEGINS, IT 1S USED 
FOR FRROR CONTROL ONLY? 


COMMENT THESE VARIABLES G1IVE THE LAST VALUF To WHICH A AND B WERE 

THIS GIVES SomME LOCAL OPTIMIZATION, EMITOD 
WORRIES ABOUT THISe OTHER ROUTINES CAUSE A LOSS oF MEMORY 
BY SETTING DIALA AND DIALB TO ZERO; 

N RRALS COMMENT RRB1L=""RRBN ARE BOOLEAN VARIABLES THAT SFRVE THE 
SAME FUNCTION AS RR41*""RRN FOR REAL VARIABLES. SEF 
COMMENT aT RR13 


BOOLEA 


NEF INE 
DEF NE 


DEFINE 


NEF INE 
DEFINE 
DEFINE 


DEFINE 


DEF TNE 


“DEFINE 


DIALED s 


_ ROOLEAN RRR2$ 
ARRAYMONF TLr 


SVARMONF LE 


NODIMPART = 


LaARLMONF TLE 


SWITMONFILE 


= 
= 


Laoral#s 


c37%11)74;3 


COMMENT SEF COMMENT aT RRBL DECLARATION: 
C27311143 


COMMENT ARRAYMONFILE IS THE DEFINE FOR 
THE ADDRESS OF THE FILE DESCRIPTOR IN 
THE FERST WORD OF ADDITIONAL INFOS 
COMMENT MONTTORFILE JS THE DEFINE FOR 

THE ADDRESS OF THE FILE DESCRIPTOR IN 
INFO FOR MONITORED SIMPLE VARIABLES3 


COMMENT THE FIRST ADDITIONAL WORD oF INFO 


FOR ARRAYS CONTAINS THE NUMBER OF DIMENSIONS 
IN NODIMPART3 


Cisslii#; 


£13%7417%3 


COMMENT LaBLMONFILE DESIGNATES THE RIT 
POSITION IN THE FIRST WORD OF AnnITTONAL 
tNFO THAT CONTAINS THE MONYTOR FYLE 
ADDRESS FOR LABELS3 

COMMENT SWITMONFILE DESIGNATES THE RIT 
POSITION IN THE FIRST WoRD OF ADDITIONAL 
INFO THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELS3 

COMMENT FUNCMONFILE DESIGNATES THE RIT 
POSITION IN THE FIRST WORD OF ADDITIONAL 
INFO THAT CONTAINS THE MONITOR FILE 
ADDRESS FOR LABELS} 


COMMENT THE DUMPEE FIELD IN THE FIRST 


ANDITIONAL WORD OF INFO FOR LABELS CONTAINS 
THE ADDRESS OF THE COUNTER THAT IS INCREMENTED 
EACH TIME THE LABFL IS PASSED IF THAT LABEL 
APPEARS IN A DUMP DECLARATIONS 


FUNCMONFILE = (€27%11)43 
nUMPEE = C2:11478#3 
nUMPOR = fo4s414]#? 


SUBOP=48#3 


COMMENT THE DUMPOR FIELD IN THE FIRST 


ADDITIONAL WORD OF INFO FOR LABELS CONTAINS 
THE ADDRESS oF THE ROUTINE THAT IS GENERATED 
FROM THE DUMP DECLARATION THAT IN TURN CALLS 
THE PRINTI ROUTINES 


FILE OUT CODE DISK SERIALELE1IC1*1023);3 


01488000 
01489000 
01490000 
01490510 
01491000 
01492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 
91500000 
01501000 
01502000 
01503000 
91504000 
01505000 
01506000 
01522000 
01523000 
01524000 
01525000 
01526000 
01527000 
01528000 
01529000 
01530000 
91531000 
01532000 
01533000 
01534000 
01535000 
01536000 
01537000 
01538000 
01539000 
01540000 
01541000 
01542000 
01543000 
01544000 
01545000 
01546000 
01547000 
01548000 
01549000 
01550000 
01551000 
01552000 
01553000 
01554000 
01555000 
01556000 
01556500 
01556900 
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0003:0036:1 
0003300363 1 
00033003631 
0003:0036!1 
000330039:%2 
000310041433 
00032004133 
0003004133 
00038004133 
00033004133 
00031004133 
000323004133 
0003:004133 
000330041433 
00031004443 
00032004333 
00031004133 
00038004183 
000340041323 
0003%004183 
0003:004133 


00033004133. 


00032004113 
00033004133 
00038004183 
00033004133 
00038004113 
0003:004a133 
00032004123 
00031004123 
0003'004123 
0003:0041:3 
00033004133 
0003:004133 
00031004133 
0003:004133 
0003004133 
0003'0044%3 
0003004133 


0003%0041%3. 


00033004133 
00038004133 
0003!004133 
0003!0041:3 
00033004433 
0003004113 
00033004133 
00033004133 
0003!004133 
0003%0041!3 
0003%0041%3 
00033004183 
00038004133 
00032004133 
000310041:3 
000330041383 


00031004153 
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FILE IN. CARRERE: el0eRR2) 
Flbe OUT LINE nySK SER TALL20!2400)(RR3915, RR4eSAVE 10)3 


ARRAY LtNr022073 COMMENT PRINT OUTPUT BUYLT IN LIN? 


-INTEGER D&3 


SAVE FriE OUT NEWTAPE DISK SERTALL 20% 2400] (RR5eRR6OORR7SSAVE 473 

FILE IN TAPE "OCROIMG*CO*>RRAeRRO)S 

SAVE ARRAY CBUFF*eTBUFFLQ!9)3 % INPUT BUFFERS, 
FILE DSK1 DISK SERTAL [(20%8161¢2910+#30)3 %108" 
FILE DSK2 DISK SERIAL (20!450162930530)3 Z1086 


-FILE OUT CODISK DISK SERIAL (20:600) (€2°30+*300)3 


FILE OUT HISK NISK £122100] “MCP™"DISK"C323023009SAVE 99); 


NEF INE McPTYPE = 63H» 
NcINTYPE = 62H» 
TSSINTYPE = 6143 


COMMENT FSPOL cODF FILES ARE UNIQUELY TYPED IN THEIR FILE 
HEADERS, HEADER®4),(36%6] 1S THE FIFLO USED TO CONTAIN 
THE TYPE? 
FILE OUT DECK O ¢2.40)3 
FILE STUFF DISK SERTAL(L20%450109910s302SAVE 15)3 
ARRAY TWXALO!1673 
REAL C3 
COMMENT C CONTAINS ACTUAL VALUE OF LAST CONSTANT SCANNED? 
REAL T3 
COMMENT T IS A TEMPORARY CrLL; 
INTEGER TeOUNTS 
REAL, STACKCT3 
COMMENT TCOUNT 1S A VARIABLE WHICH HOLDS A PREVIOUS VALUE oF COUNT 
FOR THE USE oF CONVERT? 
DEFINE LASTSEQUENCE = 1498s %115- 
LASTSEQROW = o#3 


REAL FOULED; 


BOOLEAN 

FUNCTOG® COMMENT TELLS WHETHER PROCENURE BEING DECLARED IS A 

FUNCTION; 

P25 COMMENT GENERALY TELLS WHETHER OWN WAS SEEN} 

P3, COMMENT TELLS WHETHER SAVE WAS SEEN? 

VONF » COMMENT VA;‘UE OR OWN FIELD oF ELBAT WORDS 

FORMALFs COMMENT FORMAL FIELD OF ELBAT WORD; 

pToGe COMMENT TELLS THAT FORMAL PARAPART IS BEING PROCESSD$ 
SPECTOG, 


STOPENTRY» 


AJUMP 3 


COMMENT 


COMMENT 


THIS MAKES THE ENTRY PROCEDURE ENTER ONLY 
ONE ID AND THEN EIXT$ 
TELLS WHETHER a JUMP JS HANGINGS 


01557000 
01558000 
01559010 
01559020 
01560000 
01561000 
01561056 
01561085 
01561087 
01561300 
01561400 
01561410 
01561420 
01561430 
01561440 
01561450 
01561460 
01561500 
01561600 
01561700 
01562000 
01563000 
01564000 
01565000 
01566000 
01566010 
01567000 
01568000 
01569000 
01570000 
01571000 
01572000 
01573000 
01574000 
01575000 
01576000 
01577000 
01578000 
01579000 
01580000 
01581000 
01582000 
01583000 
01583100 
01584000 
01585000 
01586000 
01587000 
01588000 
01589000 
01590000 
01591000 
01592000 
01593000 
01594000 
01595000 
01596000 
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00031004533 
0003%0050:0 
00038005782 
0003:005933 
00035005933 
000380066?14 
00038007034 
0003007420 
0003:007863 4 
0003200822 1 
000330087%2 
0003:0094:30 
0003:0094:0 
000310094:0 
00033009430 
0003:009410 
00035009420 
0003!0094:0 
0003009830 
000330105:2 
0003:0107:3 
00033010733 
00033010733 
0003:010733 
00033010733 
0003%010733 
00038010733 
00031010733 
00034010733 
0003%010733 
0003:010733 
0003%010713 
0003:0107383 
00033010723 
00033010733 
00032010733 
00038010733 
00033010723 
00034010733 
00032010733 
00031010723 
00038010723 


0003!0107%3 - 


00033010783 
00038010733 
000380107:3 
00033010733 
00033010733 
000330407!3 
00038040783 
00031010733 
0003!040733 
00033010783 
00031010733 
00038010723 
00032010783 


0003%0107%3 


© 


©) 
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ROOLFAN STOPDFFINES 
INTEGER MAXSAVES 


COMMENT THIS CONTAINS THe SIZE OF THE MAXIMUM SAVE ARRAY 
USFp TO HELP DETERMINE STORAGE REQUIREMENTS 


DECLAREnN. IT IS 


FOR THE PROGRAM 


REAL 


K|.ASSF>» 
ANDORSF » 
LEVELF » 
LINKFe 
INCRFs» 
PROJNFO? 
Gl 
TYPEV, 
PROADO» 
MARK # 
Pie 
J» 
LaSTINFO» 
NeXTINFOs 
FIRSTX» 


SAVEL? 


INTFGER NCIT? 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


COMMENT 
COMMENT 


PARAMETER BLOCK FOR THE OBJECT PROGRAM3 


CLASS IN LOW ORDER 7 BITS3 

ADDRESS IN LOW ORDER 11 BITS3 

LVL IN LOW ORDER 5 BITS; 

LINK IN LOW ORDER 13 BITS} 

INeR CN LOW ORDER 8 BITS} 

CONTAINS ELBAT WORD FOR PROCENURE BEING 
DERLARED; 
GLOBAL TrMPORARY FOR BLOCK3 

USFD TO CARRY CLASS OF JDENTIFIER 


BEING DECLARED} 


COMMENT CONTAINS ADDRESS oF PROCEDURE BEING 
DECLARED; 
CONTAINS INDEX INTO INFO WHERE FIRST WoRD 
OF ADDITIONAL INFO FOR A PROCEDURE ENTRY? 
FORMAL PARAMETER COUNTER} 

ARRAY COUNTERS 
INnEX TO LAST ENTRY IN INFOS 

INnEX FOR NEXT ENTRYIN INFO} 

RELATIVE ADD OF FIRST EXECUTABLE COpF 
TN BLOCK, INITIALIZEN TO 4095 EACH TIME3 
SAVE LOCATION FOR FYXUPS JN BLOCKS 

THIS CONTAINS THE COUNT OF CONSTANTS 


COMMENT 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


COMMENT 
COMMENT 


PROCEDURE UNHOOK3 FORWARD: 
PROCEDURE MAKEUPACCUMS$FORWARD? 
DEFINE pURPT=E4:8]#+SECRETH2Hs 
COMMENT THESE DEFINES GIVE THE NAMES OF THE WORD MODE OPERATORS. THE 


ENTERED IN 


INFo AT ANY GIVEN TIME; 


NUMRFERS REFFR TO THE APPROPRIATrF SECTION OF THE PRODUCT SPECS,. THE 
FULL NAME +S ALSO GIVENS 


DEFINE | 
ADD = 16#,» 
BBC = 92» 
BBW = 534#» 
BFC = 38%» 
RFW = 550%? 
cDC = 168%» 
CHS = 1344, 
cOc = 4AOts 
cOM = 130#» 
NEL = 10#, 
nuP = 2614, 
rFQL = 5814, 
: L.RC = OTh#, 
|,BU = 790#, 
GEQ = a4. 
LFC = 294#» 
LFU = RO6d? 
GTR = 374» 
Ipv = 384#, 
tNx = Ou#, 
15D = 532%, 


COMMENT 
ComMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


€9401) 
(04131) 
(4131) 
(0231) 
(4231) 
(1241) 
(1031) 
C0241) 
(10141) 
C0045) 
(2025) 
(4425) 


Ti e2el 
Tobe ded 
CoheS5e2 
7042503 
TaheSel 
70491004 
Veda7T ell 
74491003 
7401005 
744,9,3 
714,9,2 
7.4.4,3 


COMMENT( 2134) 7,4.5,9 
COMMENTC6131) 7,4°5,7 
COMMENT 09495) Tie e2 
COMMENT C2231) 704.508 
COMMENTC 6231) 744.506 
COMMENT (02255 7ede4Sel 
COMMENT €3001) 744,2,95 
cOMMENT ¢€0141) 7,4,10,2 
COMMENT (4121) 7,4,6,3 


ADD: 

BRANCH BACKWARD CONDITIONAL? 
BRANCH BACKWARD} 

BRANCH FORWARD CONDITIONAL} 
BRANCH FORWARD; 

CONSTRUCT DESCRIPTOR CALL; 
CHANGE SIGN; 

CONSTRUCT OPERAND calls 
COMMUNICATION OPERATORS 
DELETES 

NUPLICATE3 

EQUAL? 

GO BACKWARD CONDITIONALS 
GO BACKWARD cWORD)3 
GREATER THAN OR EQUAL To 
Go FORWARD CONDITIONAL? 

GO FORWARD CWORD)3 

GREATER THaNs 

INTEGER DIVIDES 

INDFX3 

INTEGER STORE DESTRUCTIVES 


01597000 
01598000 
01599000 
01600000 
01601000 
01602000 
01603000 
01604000 
01605000 
01606000 
01607000 
01608000 
01609000 
01610000 
016141000 
01612000 
01613000 
01614000 
01615000 
01616000 
01617000 
01618000 
01619000 
01620000 
01621000 
01622000 
01623000 
01624000 
01625000 
01626000 
01627000 
01628000 
01629000 
01630000 
01631000 
01632000 
01633000 
01634000 
01635000 
01636000 
01637000 
01638000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
01645000 
01646000 
07647000 
01648000 
01649000 
01650000 
01651000 
01652000 
01653000 


AA HA ANA TH HATHA AHA AR HAA AAA HHA AAI HA A A AH tA A 


00033010733 
00033010733 
000383010733 
00038010733 
00038010783 
00034010733 
0003010723 
00032010783 
00032010733 
00033010733 
00038010733 
00032010733 
000330107323 
00033010733 
00032040733 
00034010733 
00032010733 
00038010733 
00033010733 
0003010733 
00032010733 
0003:0107:3 
00033010733 
00038010773 
00033010733 
00032010733 
00032040733 
0003040733 
00038040783 
0003%010733 
00032011210 
00033011230 
0003:011230 
000380112380 
00033044290 
00038044220 
0003#0442!0 
0003%30412!0 
00038011290 
00038014270 
0003011230 
0003%#0112:0 
0003:30112:0 
0003:011230 
00032011230 
00033011280 
0003:0112+%0 
0003:044230 
000380414220 
00031044230 
0003%044280 
00032011230 
00031011230 
0003:0112:0 
00038011230 
00033011220 


00032044230 


{) 


Cj 


CT) 


C) 


(> 


Ce 2 SO 35 


C) 


Om © a ©) 


aD 


Oe A 


0 0 


) 


O 


ay 


QO oO 


a 


Or ER 


O 


TSN = 548%, COMMENT ¢4201) 7,4,6.4 INTEGER STORE NON#DESTRUCT3 
LEQ = 5334, COMMENT (4475) 744.4,4 LESS THAN OR EQUAL To} 
IND = 674, COMMENT (0415) 7,4,3,1 LOGICAL AND3 

LNG = 4194, COMMENT ¢€0145) 7.4.34 LOGICAL NEGATE} 

LOD = 2608s COMMENT ¢€2091) 7etetOel LOAD OPERATOR} 

LOR = 35#> COMMENT (0245) 744.342 LOGICAL, OR} 

LOV = 131%» COMMENT €1015) 7,.4.3,3 LOGICAL EQIVALENCE$ 
LSS = 549#> COMMENT ¢4225) 7,4,4,5 LESS THAN: 

MKS = 72#e COMMENT CO441) 7ebeBel MARK STACK3 

MUL = 64#>» COMMENT (CO401) 724-2.3 MULTIPLY3 

NEQ = 69H» COMMENT (0425) 7,4,4,6 NOT EQUAL TOS 

NOP = 414s COMMENT €0055) 7e4e7al NO OPERATIONS 

PRL = 18#» COMMENT COL11) 7e4e1096 PROGRAM RELEASE? 

PRTIE= 12#. COMMENT €0061) 75421099 EXTEND PRT} 

RDV = 896#, COMMENT ¢7001) 7040226 REMAINDER DIVIDES: 

RIN = 39%» COMMENT (0235) 7040803 RETURN NORMAL? 

RTS = 167#» COMMENT ¢€1235) 7e4e8e4 RETURN SPECIAL$ 

SND = 1328» COMMENT (1021) 7e4ebe2 STORE NON*DESTRUCTIVE? 
SSP = 58?#» COMMENT (4431) 7ehe7,10 SET SIGN PLUS; 

STD = 68#» COMMENT (0491) 7ehe6el STORE DESTRUCTIVE; 

SUB = 484» COMMENT (0301) 7e4e2e2 SUBTRACT; 

XCH = 133%» COMMENT (1025) 7eH_%eal EXCHANGE? 

XIT = 718» COMMENT (0435) 7540802 EXIT? 

ZP1 = 32245 COMMENT (2411) 7241008 CONDITIONAL HALT} 

SCI =10034+ COMMENT (7655) SCAN OUT INITIALIZE3 
SAN =1004#:. COMMENT (€7661) SYSTEM ATTENTION NEEDED? 
SCS 2101983 COMMENT (7755) SCAN OUT STOPS 


COMMENT THESE DEFINES ARE USED BY EMITD3 


DEFINE. 
DIA s 45#; COMMENT ¢€XX55) 7,4,7,1 DIAL A; 
DIB = 49#, COMMENT (XX61) 744,722 DIAL B3 
TRR = 53#3 COMMENT (XX65) 7,4,7,.3 TRANSFER BITS 


REAL MAXSTACKsSTACKCTR? 
INTEGER MAXROWS 
COMMENT TH1S CONTATNS THr MAXIMUM ROW SIZE OF ALL NON@SAVE 
ARRAYS neCLARED, ITS USE 7S LIKE THAT OF MAXSAVES 
INTEGER SEGSITZEMAX$ COMMENT CONTAINS MAX SEGMENT S]ZE3 
INTEGER F3 
REAL NLO*NHI e+ TLoe THI 
BOOLEAN DpToG; 
COMMENT THE ABOVE THINGS ARE TEMP STORAGE FOR DOUBLE NOS: 
BOOLEAN NOLLAR2TOG; 
NEFINE FZFRO=896#; 
REAL TisT2eNeKeaKkKuyMs 
BOOLEAN STOPGSPS 
INTEGER RUP? 
BOOLFAN JNLINE TOG 
COMMENT UNIQUE GLORAL TEMP FOR BLOCK} 
ARRAY GTaAtros10]3 
BOOLEAN ARRAY SPRTp0:31]53 
COMMENT SPRT +S TO BE CONSTDERFD TO BE AN ARRAY OF 32 32 BYT 
FIELNS, THE 32 BrTS ARE IN THE LOW ORDER PART OF EFACH 
WORD, THE BrT +S ON TF AND ONLY IF THE CORRESPONDING 
PRT CELL HAS A PERMANENT ASSIGNMENT? 
INTEGER PRT I»sPRTIMAX3 
COMMENT PRTTMAX GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN* 
MENT, PRTt ayVeES NEXT PRT CELL POSSIBLY AVAILABLE FOR 


01654000 
01655000 
91656000 
01657000 
01658000 
01659000 
01660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
014670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01677050 
01677100 
01677150 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01684000 
01685000 
01686000 
01687000 
01688000 
01689000 
014690000 
01691000 
01691500 
01692000 
01693000 
01694000 
01695000 
01695500 
01696000 
01697000 
01698000 
01699000 
01700000 
01701000 
01702000 
01703000 
01704000 
01705000 


AAA AN MNN NAHM HA A A TH At TAA A AHA st A A 


00032044230 
00034014250 
00032041230 
0003304112:0 
0003%0412!80 
00032013230 
00033014230 
000380143210 
00038011210 
00033011230 
00033011280 
0003301120 
000318011240 
0003%0112!0 
000320112190 
000320412!0 
000320142%0 
00033014270 
00034011220 
000330112:0 
000330141230 
00033011230 
00032011230 
00033011210 
00038011270 
0003:0112!0 
0003301411210 
00038014230 
0003'0442:0 
0003%0142:0 
00033011230 
00033011230 
0003:0412:%0 
00034011280 
00032014230 
00032041210 
0003041230 
00031044220 
00038014270 
0003%011280 
00033011230 
00032011230 
00033011220 
000320112!0 
000320112:0 
00033011230 
0003:04342:0 
0003:0112:0 
00032014230 
000330141434 
0003801;47%2 
00032044732 
0003%0447%2 
000330147%2 


0003%0447%2 


000320347%2 
00034011782 


C) 


C) 


Cy 


C) 


Gr ce 


2) 


Cr 1 «Or = 30 


Dy se) 


on 


TEMPORARY ASSTGNMENT? 


DEFINE ALPHASIZE = r{2%6]#3 COMMENT ALPHASIZE IS THE DEFINE FOR THE BIT 


PoSITlon IN THE SECOND WORD OF INFO WHICH 
CoNTAINS THE LENGTH OF ALPHA? 
DEFINE ENOCINDEX = {,603633]*L,039:7)#3 COMMENT EDOCINDEX IS THE WorD 


PORTION OF L SPLIT INTO a ROW AND 


i COLUMN INDEX FOR EpOc3 
MEFINE cPLUSY = 769%; COMMENT SEE cOMMENT aT cPLUS2 DEFINES 


NEFINE ePLus2 


USED IN THE GFNERATION OF C™RELATIVE cOpe3 
PROCENURF FLAGCERRNUM)$ VALUF FRRNUM$ INTEGER FRRNUM$ FORWARDS 
ALPHA PROCFDURF B2ntB)s VaLUF B3 RFAL B? FORWARD 
Real PROCEDURE TAKFCW)3 VALUF WS INTEGER Ws FORWARDS 
BOOLEAN MACROIN3 
REAL PROCENURE FIXNEFINEINFO¢T)s VALUE TS REAL Té FORWARD? 
PROCEDURE. FRR cERRNUM)$ VALUF FRRNUM$ INTEGER ERRNUM$ FORWARD? 
INTEGER PROCEDURE GITCL)% VALUE L$ REAL L? FORWARD} 
ARRAY CALLALO!31°0%255]3 
DEFINE CALLUCALLIISCALLACCGT3©CALLI)2,LINKR»eGT3.LINKCI#3 
REAL CALLX+CALLINFO*NESTCTReNESTCUR? 
ARRAY NESTPRTICPRIBASE?PRTOP]3 
ARRAY SORTPRTCO?PRTOP=PRTBASE]3 


COMMENT "RLANKET® BLANKS OUT Nai WORDS IN "TyeRees 
STREAM PROCEDURE BLANKETCN, THERE)? VALUE NE 

BEGIN 

DIs=sTHERES DS#=8 LIT" "3 SIssTHERE? DSt=n WDS3 

END BLANKET} 
STREAM PROCEDURE CHANGESEQCVAL*OLOSEQ): VALUE oOLDSEQ; 

REGIN DIy=OLDSEQs; SIs=VAL; DS:=8 DEC END CHANGESEQ; 

STREAM PROCEDURE SEQUENCEERROR( LD? 

BEGIN nlr=b3 ns:=16 LIT"SEQUENCE FRROR "3 END SFQUENCEERROR? 
STREAM PROCENURF GFTVOINCVPsNcCReLCRsSFQ)$ VALUE NCRe LCR? 


REGIN 
LABEL LeEXITS 
LOcaL N3 


STssNcRs NIs=vP3 0Ss=8 LIT "0"; 
2C34crr Sc" " THEN SyTt=Sy41 ELSE JUMP OUT 2 TO L))3 
GO TO FXIT3 * NO VOIN RANGE GIVEN» RETURN ZERO, 


IF Sc="3" THEN GO TO EXIT? 
IF sco" THEN 
RFGIN 
STt=St+ls NTFSLCRs NSt=1 LrT"""s & STOPPER FOR SCAN 
NcRtsSt3 % TEMP. STORAGE» SINCE NCR JS "LOCAL" TO GETVOID, 
8erF Scatter THEN JUMP OUT FLSe 
BEGIN TALLYSsTALLY+13 Srt=Sr41 END)S 


% STrLL NO RANGE, 


EN) 
Fi.Se BEGIN 
NCRtsS13 % TEMPe STORAGE*® SINCE nCR 1S "LOCAL" To GETVoID, 
DIsSLCr3 DS:=t LIT" ™s & STOPPER FoR SCAN 
ACIF Sc=" " THEN JUMP OUT ELSE 
REGIN TALLYs=TaALLY+1; SI#=SI+1 END); 
ENDS 
STs=NcRs DIsSVPs DIsDI+8; %¥ RESTORE POINTERS. 
Ns=7aLLy3 NTs=ni"N3 OSt=N CHRS 
FXITS 


770#? COMMENT cPLUst AND cPLUS2 ARE EXPLICIT CONSTANTS 


01706000 
01707000 
01708000 
01709000 
01710000 
01711000 
01712000 
01713000 
01714000 
01715000 
01716000 
01717000 
017417700 
01717800 
01717900 
01718000 
01719000 
01720000 
01721000 
01722000 
01724000 
01725000 
01726000 
01737300 
01737350 
01737400 
01737450 
01737500 
01741200 
01741300 
01742100 
01742110 
01756000 
01757000 
01758000 
01759000 
01761000 
01762000 
01763000 
01764000 
01764500 
01765000 
01766000 
01767000 
01768000 
01769000 
01770000 
01771000 
01772000 
01773000 
01774000 
01775000 
01776000 
01777000 
01780000 
01781000 
01782000 


00033034782 
00033014472 
000380117%2 
0003%0117:2 
0003:0117!2 
00033011732 
00033011732 
00033011732 
000330117%2 
00038011782 
0003301172 
0003:011732 
0003390114732 
00032044722 
00034041732 
0003:0447%2 
00032034732 
0003043782 
00032014933 
0003%0149%3 
00034014983 
00033012230 
00033012630 
00033012630 
0003:%0326:0 
00033042630 
000328012782 
00031012982 
00033012933 
00033012933 
0003:0131:2 
0003013132 
0003:0133:3 
00031013333 
000310134:0 
0003013420 
0003:30134:0 
00032043583 
00031013884 
00033043884 
0003:0138!4 
0003#0139%3 
00032014070 
0003014030 
Q000380141%3 
00038044230 
00033044333 
0003204 45%2 
0003%0445%2 
0003%014532 
00032014533 
000323014630 
00033014733 
0003:0149:2 
00033014932 
00033014933 
00033015122 


a 


"© 
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END OF GETVOID$S 
REAL VOTDCRs VOINPLACE + VOIDTCR,VOIDTPLACE 
FORMAT 
BUGCX24e+4¢A49X2))3 


PROCEDURE NDATIMES 
BEG1N 
INTEGER HoMINsQ3: ALPHA N1,N23 


ALPHA STREAM PROCEDURE DATERCDATE)# VALUE DATES 
BFGYN 
Dr*sLOC DATER# SyTtsLoC DATES Sl tsSy+73 
ocDSt=o CHR? DSt=s_yTw/w)s NSt=2 CHR 
Eud oF DATER$ 
Hs=TIME1 DIV 216n003 MIN?=C(TIMEY DIV 36009 MOD 603 
NisSDISKsMFIDs N2:=DISKeFIO: 
WRITECLINE? 
<X22*"RBURROUGHS R™5700 ESPOL COMPILER MaRK ", 
"Xv 100116" 
Pau sabe" "DAY? ,0,", “,T2e"S en 2eKLeAde 
SISIX4AS a AL ae AOa Se Alan be/X4a5n LOCMS")//>o 


TIME CO SNATERCTIMEC5S)) 21 2xXREALCQtaH MOD 1220)+Q, 
Qt=MrN MON 1O+CMIN DYV 10)x64> 
IF H212 THEN "PM," ELSE AM,"s 
Ni .C526)eN1sN2,(626)],N2)3 
IF MERGETOG THEN % INDICATE NAMF OF SOURCE FILE. 
WRITE CLINE e <Xd0,"SOURCE FYLES “pALeAGe"/oAtrAbo//>»e 


_  .. ONETSTAPE SMFIDI LOLGI,NG es CN2SSTAPE. FID) »COS6]sN2)3 
NOHFADINGS=FALSES 
ENN OF DATIMES 


Bites 


Ziti 
a1it= 


*111i" 


COMMENT THIS SECTION CONTAINS ALL CODE PERTAINENT TO READING CARDS 


AND SCANNING THRM3 


Ae ee ag RR I ka AE ook oie ak kk a 9 Oe oe dk oo a aa ke a ake a dak oka de ake ic ait ak ake 


% 
% MISCELLANEOUS CROSS REFERENCE PROCEDURES 
% 


%110= 
%110- 
%110- 


GOR RIGO OG ICICI GIG IOI RIOR GE dO OR GIGI SIOI OK 


% 
PROCENURE CROSSREFITCINDEX»SEQNOPREFTYPE)3 
VALUE INDEX»SEQNOSREFTYPES 
REAL INNDEXsSEQNO,REFTYPE? 
BEGIN. 
IF XRFEEINFOLINDEX).IMNOF #4 0 THEN & SAVE 
BEGIN 


1F XREFPT > 29 THEN % NO SLOTS LEFT IN ARRAY, WRITE fT OUT, 


BEGIN 
WRITECDSK3*#30eXREFAY oO *I)3 
XREFPT s= 03 


END; 
XREFAY2CXREFPT] := SEQNO & REFTYPE TYPEREF @& XREFINFOCINDEX] 
REFIDNOF?: 
XREFPT 3:= XRFFPT + 13 % EVEN THOUGH THE ARRAY MAY BE FULL NOW We 


2 caNT WRITE IT OUT BECAUSE SOMF ROUTINES 


%110° 
%110- 
%110- 
%110° 
¥110" 
%110" 
%110= 
%110" 
%110= 
21107 
%110% 
2110" 
%110" 
*%t10" 
K110° 
%110" 


START OF SEGMENT 


01784000 T 0003201515 
01785000 T 00033015138 
01800000 T 000301513 
01802000 T 000301513 
START OF SEGMENT kok 2k dK ok 
8 LONGs NEXT SEG 
01820000 T 00032015122 
01821000 T 00034045182 
04822000 T 0003:0154:2 
9K OR KOK 
01823000 T 000530000:0 
01824000 T 0005000010 
01825000 T 000514000030 
01826000 T 00053000084 
01827000 T 0005%0002!0 
01828000 T 0005:!0003!2 
01828500 T 0005!0007:2 
01829000 T 00053001333 
01830000 T 00053001532 
01831000 P 00063001532 
01832000 T 0006:001522 
01832500 T 0006:001532 
40 LONG» NEXT SEG 
01833000 T 0005:0016!0 
01834000 T 00058003230 
01835000 T 00051003631 
01835500 T 00054004332 
01835600 c 0005:0053:2 
01835700 c 0005:0054:0 
14 LONGs NEXT SEG 
01835800 c 0005005712 
01836000 T 0005:007732 
01837000 T 00053007830 
82 LONGs NEXT SEG 
02000000 T O003°0151:%2 
02001000 T 00038015182 
02001605 C 0003:0151:2 
02001610 ¢ 000330451:2 
02001615 C 0003#01451!2 
02001620 C 0003501451%2 
02001630 C 000380151%2 
02001635 C 900380151!%2 
02001640 C 00033015182 
02001645 ¢ 0003:30151%2 
02001650 ¢ 0003:0151%2 
02001655 c 0003:0151%2 
02001660 c 000330151:2 
02001665 ¢ 00038045583 
02001670 c 00035045680 
02001675 C 0003%0;157%2 
02001680 C 00038015723 
02001685 C 00039016123 
02001690 C 00033016231 
02001695 C 00032016231 
02001700 C 00038016631 
02001705 ¢ 0003:0168:0 
02001710 ¢ 


00033016933 


2 

2 

2 

2... 
4 


3 


5 


=) 


5 


3 


i 


O 


Cy. © 


C) 


4’ wtb LOOK Back at THE ENTRY WE JUST PUT 
® IN aNpn FIX IT UP, 


ENNs 
puss! - ord END OF CROSSREFITS3 
P4 
PROCEDURE CROSSREFDUMPCINDEX)3 
VALUE INDEX3 
REAL INDEX$ 
BEGIN 
ha ot a Teal Die eS STREAM PROCEDURE MOVEXREFINFOCS*#DeN)3 
VALUE N3 
BEGIN 
St 22 ns Of t= ns OS t= 8 LIT ™ "3 DS t= 7 WHSS % BLANK RECORD 
St s= S# St t= St + 33 D1 t= D% DS t= N CHRS &% MOVE IDENTIFIER 
END Of MOVEXREF INFOS 


reece! of he £ _ XREFAYLC8] 


% 
IF XREFINFOCINOEX),IONOF # 0 THEN % DUMP IT 
BEGIN 
MOVEXREFINFOCINFOLINDEXeLINKRe INDEX,LINKCHL I] »XREFAYIC¥I] 2 
TAKE CINDEX t15ef12261)93 
1= XREFINFOCINDEXI: 
XREFAY109] s= TAKECINDEX)3 3 FLBAT WORD 
WRITE COSK1e10eXREFAYICL#I); 
XREFINFOLINDEX] s= 03 
END3 
END OF CROSSREFDUMP$ 


COMMENT 
BOOLEAN STREAM PROCEDURE OCTIZECS*0sSKP*CNT)$ 
BEGIN 
Sts=S3 Sl:=Si+q3 Dl:=D3 SKPCDSis3 RESET)$ % RIGHT JUSTIFY. 
CNTCIF SC2"8" THEN TALLY!=1 ELSE IF SC<"0" THEN TALLY#=13 SKIP 
3CIF SB THEN DS?*SET FLSE DSt=RESET$ SKIP S$B))3 
Stt=D3 IF SR THEN 
BEGIN TALLYt=13 DN{tsDs DSs=RESET ENDS 
OCTLZES=TALLY? % i = NON OCTAL CHARACTER OR FLAG BIT, 
END ocTIZE3 
COMMENT HEXIZE REFORMATS ACCUM FOR HEXADECIMAL, CONSTANTS? 
BOOLEAN STREAM PROCENURE HEXIZECS#D»SKP*CNT)3 VALUE SKPsCNT3 
BEGIN LOCAL Ty»T2*TEMP2*TEMP1s LABEL AGIN$ 
COMMENT LOCAL VARIABLES ARE LOCATED IN REVERSE ORDER FROM THE 
WAY THEY a~RE DECLARED IN STREAM PROCEDURES} 
DIlzeLOc TEMP13; cCNTCOSs=LIr"1")3 % IN CASE A CHARFAPB*CeDOOR Fo 


OCTIZE REFORMATS ACCUM FOR OCTAL CONSTANTS} 
VALUE SKPsCNT$ 


Slt=S3 Slt=S1+33; pl+=LOc TEMP!L; % WE MAY OVERFLOW JNTO TEMP2, 

CNTCIF SC<"0" THEN IF SC2*A" THEN IF Sc<tF’ THEN & WORK HARN, 
RFEGIN 
T1tsSrs T2t=Dy3s Drt=ris Syps=T2? &% fuyPs, MAN, 

ae NSt=3 RESFTs SptsTis Oyt=Tos F FLIP BACK, 
DS#s{ ADDs Oyt=Ole4s SKIP 2 DBs OSt=ai SETS SKIP 3 DB} 
GO AGIN3 
eases) Yan es eae END3 


IF SC<eo" THEN TALLY:=13 OSs=CHR3 % < O = 
AGING 
ve. 
SIs=LOc TEMP1; 
cNTCSKIP 2 SB3 


oy:3D3 SKPCDS:=4 RESET)3 


%110" 
¥110" 
110" 
%1{10° 
%140" 
%110- 
%110= 
%110" 
Z110" 
2110° 


Z110= 
%110" 
%110° 
%110° 
%110= 
%110- 
%110" 
%110° 
41107 
%1107 
21107 
%110° 
%110° 
%110° 
%110" 
%110- 


3 SB; 


% PREVENT FLAG BIT. 


NON*HEX CHARACTER. 


4 RIGHT ADJUST CONSTANT, 


Is 


02001715 
02001720 
02001725 


02001730 


02001735 
02001740 
02001745 
02001750 
02001755 
02001760 


START OF SEGMENT 


02001765 
02001770 
02001775 
02001780 
02001785 
02001790 
02001795 
02001800 
02001805 
02001810 
02001815 
02001820 
02001821 
02001822 
02001825 
02001830 


78 LONG» 


02001836 
02001838 
02001840 
02001842 
02001844 
02001846 
02001848 
02001850 
02001852 
02001854 
02001856 
02001858 
02001860 
02001862 
02001864 
02001866 
02001868 
02001870 
02001872 
02001874 
02001876 
02001878 
02001880 
0200188? 
02001884 
02001886 
02001888 
02001890 
02001892 


AHA HAH AHDH FARAH HAAR AAA AHH HATA HIG 


0003%016933 
00033016933 
00032016983 


00032046933. 


00033046983 
00032016923 
00038016983 
00032016923 
00033016933 
00032016923 
oe eK oR OK Ke 
00083000030 
0008:0000:0 
0008#0000:0 
000820002:0 
000880003%2 
00083000373 
00082000333 
00083000733 
00083000830 
00083001183 
00083001333 
0008:0017:3 
00082001932 
00082002333 
0008:0027%2 
00082002782 
NEXT SEG 
0003#016983 
000320146933 
00033016933 
00032017030 
0003:0172:0 
0003:0475%2 
00032017713 
0003017810 
0003%017933 
00038047983 
00033018034 
000320180%1 
00032018031 
000330181322 
0003:01814:2 
0003:0181:2 
00033018332 
00038018333 
000380148732 
00038018732 
0003018834 
00032048983 
00038049084 
0003#0494%2 
0N0320191%2 
0003!0192:0 
00033019220 
00033019220 
00032019430 


8 


3 


Ca 


C) 


CO) 


C) 


eo: c 


Ce Gy 


o> So ie 


Oe 


o 


4ctr SB THEN nSt=SeT FLSE OSt=RESETS SKTP SBI)3% FINAL CONVERT, 
Sy#iDs IF SB THEN . 
REGIN TALLY3s1? DItsD3 DSs=RESET ENDS % PREVENT FLAG BIT, 
HEX|ZEt=TALLY$ % "4" IF PROGRAMMER GOOFED, 
END HEXIZE3 
COMMENT PUTSEQNO PUTS THE SEQUENCE NUMBER OF THE CARD@IMAGE 
CURRENTLY BEING SCANNED INTO THE INFO TABLE IN CASE 
IT IS NEEDED FOR FUTURE REFERENCES 
STREAM PROCEDURE PUTSEQNOCINFO*LCRI: VALUE LCR? 
BEGIN OLS=INFO: ST:=bcRs DSt=WpSs END PUTSEQNO$ 
COMMENT TURNONSTOPLIGHT TURNS THE LIGHT “Reo ON THE "CORNER", 
}eFee THE PURPOSE OF THIS ROUTINE 15 TO INSERT A PER 
CENT S1GN 1N COLUMN 73 AS AN END OF CARD SENTINEL FOR 
THE SCANNER? 

STREAM PROCEDURE TURNONSTOPLIGHTCREDsCORNER)$ VALUE REDs»CORNERS 
BEGIN DI%=sCORNERS SIt=L0C CORNER? SIt=Sfey3 DSt=sCHR END3 
COMMENT WRITNEW TRANSFERS THE CARD IMAGE Ton THE NEWTAPE BUFFER 

AND REPORTS IF THE CARD MIGHT BE CONTROL CARD} 
BOOLEAN STREAM PROCEDURE WRITNEWCNEWOFCR)3 VALUE FCR3 
RFGIN SI « FCR3 IF St # "8S" THEN TALLY © 13 
NI“NEWsDS«10 WOS3 
WRITNeW « Tabby FND wRrrNews 
COMMENT MKABS CONVERTS a neScRIPTOR TO AN ABSOLUTF ADDRESS? 
REAL STREAM PROCEDURE MKABS(A)$3 
BEGIn DI « AS MKABS ¢« DI END MKABS3 
REAL STREAM PROCEDURE CONVCACCUM>SKpeNn) VALUE SKPONS 
BEGIN 
Ste ACCUMs SyTeST4+SKPsSleS1+33D1«LOC CONV3DSeN OCT 
END: 
STREAM PROCEDURE MOVECHARACTERSCNsSORCE*SSKIP®*DEST*DSKIP)3 
VALUE N»SSKIP*DSKIP3 
REGIN 
ST*©SORCE 3 DI*DEST; 
SIl*SI+SSKIP$ DI© DI+DSKIP 3 
oS « N CHR 3 


® 
s 


END 
COMMENT MOVECHARACTERS MOVES N CHARACTERS FROM THE SSKIP#TH CHAR IN 


wSORCE’* TO THE DSKIP*"TH CHAR IN "DEST", H 
STREAM PROCEDURE moVECW) "WORDS FROM*¢CAI" TOMB)? VALUE W3 
BEGIN St « A$ Dt « B% DS « W WDS END} 
STREAM PROCEDURE RESIZECFIEL)3 
BEGIN |,0CAL T3 
SI*FIELS DlelLoc Ts DS«WDS; 
STeTSDIeF TELS DLeDi+i3 SKIP 2 DBs’ DS«10 SET 
END; 

COMMENT EQUAL COMPARES COUNT CHARACTERS LOCATED AT A AND B FOR 
EQUALITY. THIS ROUTINE IS USED IN THE LOOK#UP OF ALPHA 
QUANTITIES IN THE DIRECTORY: 

BOOLEAN STREAM PROCFDURE EQUALCCOUNT»As,B)3 VALUE COUNT} 

REGYN 

TALLY%=143 Srtsas DIt=Bs 

IF cOUNT SC=sDC THEN EQUALISTALLY 
END FQUAL3 

PROCFDURE RFADACARN$ FORWARD$3 

PROCEDURE POLLARCARD? FORWARDS 

BOOLEAN PROCEDURE BOOLEXPs FORWARD? 

PROCEDURE SCANNER? 


02001894 
02001895 
02001896 
02001897 
02001898 
02002000 
02003000 
02004000 
02005000 
02006000 
02007000 
02008000 
02009000 
02010000 
02011000 
02012000 
02014000 
02015000 
02016000 
02017000 
02018000 
02020000 
02021000 
02022000 
02023000 
02041000 
02042000 
02043000 
02044000 
02045000 
02046000 
02047000 
02048000 
02049000 
02050000 
02051000 
02052000 
02053000 
02054000 
07055000 
02056000 
02057000 
02058000 
02059000 
02060000 
02061000 
02061500 
02062000 
02062500 
02063000 
02063500 
02064000 
02064500 
02065000 
02065500 
02065600 
02066000 


ABA AHA DHA HAHAH HHH AH THAR HAR HAHAHA A HH A A St tA tt HA 


000320149533 
00032049783 
00033019884 
00033019953 
0003%0200:30 
0003020132 
00032020132 
0003t02013%2 
0003!0201:2 
0003:0201:2 
000330202:0 
00033020230 
0003020230 
00034020230 
0003%020230 
0003%020230 
000340203%2 
0003:0203:2 
00033020332 
0003:0203%2 
00032020532 
000320205:3 
00031020634 
00032020684 
00038020684 
0003202083 4 
00033020621 
00031020922 
0003%02140%1 
00033021133 
00031021133 
0003021123 
000330212:0 
00033021231 
0003%024323 
00033021430 
0003:021410 
0003'0214:0 
0003202;,410 
000370214430 
000330216:0 
0003!0216:0 
0003%0217%2 
0003%0247:%3 
000380241932 
0003%80219%2 
00031021932 
0003:0219%2 
0003120219132 
00033021982 
0003%0220!0 
000380220034 
00033020133 
000381020984 
00033:0222%4 
0003%020234 
0003%03902%4 


ee 


C) 


Cy 


C) C} C} C) C) C} C) C3 


C) 


Cy JA HY 3 a 


C) 


O 


BEGIN 
COMMENT 


_ COMMENT 


"SCAN" IS THE STREAM PROCEDURE WHICH DOES THE ACTUAL SCANNING, 
IT IS ORIVEN BY A SMALL WorRD MODE pRoOCEDURE CALLED "SCANNER"® 
WHICH CHECKS FOR A QUANTITY BEING BROKEN ACROSS A CARD. "SCAN" 
TS CONTROLLED BY aA VARIABLE CALLED "RESULT". "SCAN" ALSO 
INFORMS THE WORLD OF ITS ACTION BY MEANS OF THE SAME VARIABLE® 
HENCE THE VARIABLE "RESULT" IS PASSED BY BOTH NAME AND ValiuEe 
THE MEANING OF "RESULT" AS INPUT IS? 


VALUE MEANING 

Q INITIAL cOpE = DEBLANK AND START TO FETCH THE 
NEXT QUANTITY. 

1 CONTINUE BUILDING AN [TDENTIFIER CINTERRUPTED BY 
END™OF™CARD BREAK)+ 

2 LAST QUANTITY BUILT WAS SPECIAL CHARACTER, HENCE? 

: EXIT CINTERRUPTION BY END*OFRCARD BREAK 1S NOT 
{MPORTANT), 

3 CONTINUE BUILDING A NUMBER CINTERRUPTED BY END@OF*= 
CARD BREAK), 

4 LAST THING WAS AN ERROR CCOUNT EXCEEDED 63), HFNCEs 
FX1T ¢INTERRUPTION By END=OF@CARD BREAK NOT 
tMPORTANT): 

5 GET NEXT CHARACTER AND EXrT, 

6 SCAN A COMMENT: 

7 DEBLANK ONLY. 

THE MEANING OF "RESU'Tw AS QUTPUT JIS: 
VALUE MEANING 

i AN IDENTIFIER WAS BUILT. 

2 A SPECIAL CHARACTER WAS OBTAINEDe 

3 A NUMBER CINTEGER) WAS BUILT, 


"SCAN" PUTS ALL STUFF SCANNED CEXCEPT FOR COMMENTS AND 
DISCARDED BLANKS) INTO "ACCUM" CCALLED "ACCUMULATOR" 

FOR THE REST OF THIS DISCUSSION), 

"COUNT" IS THE VARIARLE THAT GIVES THE NUMBER OF CHARACTERS 
"SCAN" HAS PUT INTO THE "ACCUMULATOR", SINCE "SCAN" NEEDS 
THE VALUE SO THAT IT CAN PUT MORE CHARACTERS INTO THE "ACCUM™ 
ULATOR™ AND NEEDS TO UPDATE "COUNT" FOR THE OUTSIDE WORLD» 
"COUNT" IS PASSED BY BoTH NAME AND VALUE, IT IS ALSO 
CONVENIENT TO HAVE (€63"COUNT)» THIS IS CALLED "COMCOUNT", 
"NCR" (NEXT CHARACTER TO BE SCANNED) IS ALSO PASSED BY 

NAME AND VaLUE So THaT IT MAY BE UPDATED, 

"STi" AND "ST2" ARE TEMPORARY STORAGES WHICH ARE EXPLICITLY 
PASSED TO “SCAN” IN ORDER TO OBTAIN THE MOST USEFULL STACK 
ARRANGEMENT. 


; 
STREAM PROCEDURE SCANCNCRs COUNTV® ACCUM» COMCOUNT»RESULT*#RESULTVs 


COUNT,ST2,NCRV2ST1)3 
VALUE COUNTVs cOMCOUNT,RESULTV>ST2sNCRVeSTY13 


GIN 

BEL DEBLANKsNUMBERSs sDBLOR,GNCsKsEXIToFINISslLsERROR, 
COMMENTS» COMMANTS3 

DItsRESULT: PLssDy+73 STtencRvi 

SETUP "Ny" FOR A CHANGE IN “RESULT” AND "Sr! FOR A LOOK AT 

THE BUFFER? 


Crt=Cl+RESULTV3 % SWITCH ON VALUE OF RESULTS 


02066500 
02067000 
02067500 
02068000 
02068500 
02069000 
02069500 
02070000 
02070500 
02071000 
02071500 
02072000 
02072500 
02073000 
02073500 
02074000 
02074500 
02075000 
02075500 
02076000 
02076500 
02077000 
02077500 
02078000 
02078500 
02079000 
02079500 
02080000 
02080500 
02081000 
02081500 
02082000 
02082500 
02083000 
02083500 
02084000 
02084500 
02085000 
02085500 
02086000 
02086500 
02087000 
02087500 
02088000 
02088500 
02089000 
02089500 


START OF SEGMENT 


02090000 
02090500 
02091000 
02091500 
02092000 
02092500 
02093000 
02093500 
02094000 


AA AHA HH AHH FHA HAHAHAHA AHH A A TT TAIT TAA H AA TAA A HHH 


0003%0902%4 
00030279284 
00038022221 
00031022231 
00033022231 
0003:022231 
00033022231 
00033022231 
00031022231 
00031022211 
00031022234 
0003!0222%1 
00033022231 
0003:02223%1 
00031022231 
0003802028 4 
0003%'0202%4 
00032022231 
00033022231 
0003802202314 
0003:0220234 
0003022284 
00031099231 
0003%0900%4 
0003102004 
000380220231 
0003'0222t1 
0003%022231 
0003:022211 
00033022281 
0003:022231 
00033022231 
0003%0222:4 
0003:0222:%1 
0003:0222:1 
000310222214 
00033022231 
000310222114 
0003%022231 
0003:022231 
00032029234 
0003:022231 
00031022281 
0003'022281 
000320229231 
00033022231 
0003%0222%1 


ek ACK OIC 


00094000010 
0009!0000:0 
00093000010 
0009%0000!0 
0009!0000:0 
0009#0000:0 
00098000031 
000930000%4 
000930000314 


9 


Cy 


C) 
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C 
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©) 
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CG 


C) 


corms, Inc sv ‘Paley 
O © 


Rone gel Coeiess 
O 


O 


Oo 6 


Or 


O- © 


@ ae ©) 


O) 


) 


A 


Cc 


KE 


DERBLANKs 


COMMENT 


COMMENT. 
GNC: 


cOMMANTc3 


COMMENTS$ 
COMMENT 


IDRLDR3 


ERRORS. . 


COMMENT 


NUMRERS:. 


EXT? 


cOMMENT 


% 
--G0 NUMBERS; 2% 


= 


GO DEBLANK? 4& 
GO JTDBLODR} % 
GO FINTS3 


15 tNyTIAL CODE, 

1S 1D CODF, 

1S SPECIAL CHARACTER CODE, 
1S NUMBER CODE, 


NOUS WNH OO 
— 
mn 


GO FINTSs % FRROR CODE, 
GO GNC$ % 1S GET NEXT CHARACTER CODE, 
GO COMMANTS; 32 1S cOMMENT CODE, 

: TS NEBLANK ONLY CODE, 


IF SC=" " THE 
St:=St+13 IF Sc=" " THEN GO K~ END; 


IF Sc=" " THEN. 
REGIN SJs=St+13 1F Sc="™ ™ THEN GO LENDS: 
1F WE ARRIVE HERE WE HAVE A NON@BLANK CHARACTER? 
NCRVisS]3 
IF SC 2 "ow THEN GO NUMBERS? 
IF SCSALPHA THEN Go YOBLDOR; 
IF WE ARRIVE HERE WE HAVE «& SPECIAL CHARACTER COR GNC); 


NnssHLIT"2";s TALLYs=1—3 sls=slti3 GO EXIT3 


Te Sc#"3" THEN 
BEGIN 


SptaSysed3 
IF SC > "%" THEN GO COMMENTS? 
Ir Sc < "3" THEN GO COMMENTS; 


“CHARACTERS BETWEEN % AND SEMICOLON ARF HANDLED BY WORD= 


MODE PART OF COMMENT ROUTINES 
END3 
GO FINIS$ 


TaLbLy:=633 psrahir "4s 
cCOMCOUNTCTALLYs=TaLLy+13 


Ie SCHALPHA THEN sitsSi¢1 fLSe JUMP OUT TO EXIT)? 


TALLY? =TALLY+13 
IF SC=ALPHA THEN 
BEGIN 


DIs=DI"13; DS:sLIT "4": Go EXITs 

END 
FLSE GO EXIT; 
IF WE aRRIVE AT ERROR WE HaVE MORE THAN 63 CHARACTERS 
IN AN TMENTIFIFR OR NUMBER? 


TALLY#=633 NStalyT "3"3 
COMCOUNTCTALLY?®=TALLY+13 

1F SC <"OrTHEN JUMP OUT To EXITS SyptaS141)3 
GO ERROR3 


ST1tsTALLY: % "ST," CONTAINS NUMBER OF CHARACTERS WE ARE 
% GOING TO MOVE INTO THE "ACCUMULATOR", 

TALLYS=TALLY+COUNTYVs; ST2tSTALLYS 

nrescOUNT; SytsbOrn ST2s DSt=WOS3 

THIS CODE UPDATED "COUNT" 


mresAccUMs SyptaSp"3s Nss=3 CHR: 


02094500 
02095000 
02095500 
02096000 
02096500 
02097000 
02097500 
02098000 
02098500 
02099000 
02099500 
02100000 
02100500 
02101000 
02101500 
02402000 
027102500 
02103000 
02103500 
02104000 
02104500 
02105000 
02105500 
02106000 
02106500 
02707000 
02107500 
02108000 
02108500 
02109000 
02109500 
02110000 
02110500 
02111000 
02111500 
02112000 
02112500 
02113000 
02113500 
02114000 
02114500 
02115000 
02115500 
02116000 
02116500 
02117000 
02147500 
02118000 
02418500 
02119000 
02419500 
02120000 
02120500 
02121000 
02121500 
02122000 
02122500 


AHH HA HAAN HAA HAHA AIA TA AA HAA FAIA tA A HH SH HH A HH 


0009:0004:2 
00092000133 
0009:000133 
0009:000220. 
0009:00022%0 
00093000231 
00093000231 
0009:0003!2 
00093000332 
00093000333 
00093000582 
0009200052 
00092800052 
0009800061 
0009:0008!0 
000920008!0 
0009000830 
0009%0009%2 
00091000933 
00093000933 
00093000933 
00093001132 
0009:0041:2 
00093001231 
00093004241 
0009%0043!2 
000910043%2 
00092004480 
00091004434 
000930014314 
00093001431 
00093001431 
00093001532 
0009:001532 
00093001533 
0009300173%2 
00093001834 
0009:0049:2 
000930049%3 
00093001923 
00092002020 
0009:0021:2 
0009?80021:2 
00093002133 
00093002133 
000910021383 
0009:002133 
0009!0002%4 
0009!0094:0 
00093002533 
00093009533 
00092002533 
00098002630 
00093002610 
00091002732 
00093002733 
00093002733 


C) 


C) 


COMMENT THYTS CODE PLACES "COUNT" TN "ACCUM AS WELLE 
DrssDT4COUNTV3 % POSyT ON wDy PAST CHARACTERS ALREADY 
% IN THE *ACCUMULATOR", IF ANY, 
: Srt=nCRV3 OSt=STy CHR? 
COMMENT MOVE CHARACTERS INTO "ACCUM"; 
FINIS: 
WAG hy cote oe a ; DIs=NCR$ ST13=Sl3 SIls=LOC STi; DSs=WDS; 
COMMENT RESET "Nor" TO LOCATION OF NEXT CHARACTER TO BE SCANNED} 
END OF SCAN3 
Be eee a Larnrlh L3% 


SCANCNCR, COUNT, ACCUME17,63"COUNT,RESULT, 
RESULT,COUNT,O,NCR,0O)3 
IF nCR=LCR THEN 
BEGIN 
weet aaah Be READACARD} 
Go To 43 % GO DIRECTLY TO L, DO NOT PASS Go» 
%¥ NO NOT COLLECT $200. 
END; 
END SCANNER; 


IF SINGLTOG THEN WRITECLING» 15sLINC*]) 
ELSE WRITECLINECOBLIsiSeLINC I] dp 
BEGIN 
EDITLINECLIN,FCRIL DIV AsL.r S622] ,MEDIUM,OMITTING)3 
IF NOHEADING THEN DATIME$ WRITELINES 
END #3 
STREAM pROCEDURE EDITLINECLINE*NCRe pe Le SYMBOLeOMIT)$ 
VALUE NCReRe Le SYMBOLAOMITS 


ee Munehe ete + ag : NnEFINE wRITELING 


PRINTCARD 


BEGIN 
eee, Boo ans 1c et : Ot s= LINES DS := 16 Lit * "3 
St := NeRs nS t= 9 WDS3 
pS := 8 LIT " "3 
eGactoaes, 2 all DS := WoS3 % SrFQUENCE NUMBER, 
DStebrT" "3 SptalOC SYMBOLS S1tsSy+6i 
DSt=? CHRE pStsLyT" 3 
SpetOC Ri ODSeq DEC DSeL_ IT whee 
Ste1.0Cc Li? DSe; DEC} 
DSe6 Lit oy 
aGeatcms* eck OMITCDJ?sDI=123 OSt=8 LIT OMIT")? 
END EDJTLINGS 
COMMENT COMPARE COMPARES SEQUENCE NUMBERS OF TAPE AND CARDe IF 
TAPE IS SMALLER THEN RESULT = O ELSE IF CARD TS SMALLER 
RESULT = { ELSE RESULT = 23 
REAL STREAM PROCEDURE COMPARECTAPE* CARN)’ VALUE TAPE? CARD? 
wilecaeat eat Se ; BEGIN 
SI s:= TAPES DI] t= CARD}: 
IF 8 SC 2 NC THEN 
BEGIN 
SY := Siwgs DI t= Di=gs TALLY 3 = 43 
IF 8 SC = pe THEN TALLY 82 2 
Pea tieette daca, whee ou : END: 
COMPARE := TaLLy 
ENn cOMPARF: 
As sot gsten PROCENURE OuTPUTSOURCES 
BEGrN 
LABrlL LCARD,LTAPEsAWAY3 


02123000 
02123500 
024274000 
02124500 
02125000 
02125500 
02126000 
02126500 
02127000 
02127500 
02128000 
02128500 
02129000 
02429500 
02430000 
02430500 
02135500 
02136000 
02136500 
02137000 
39 LONG 
02181000 
02181250 
02182500 
02182750 
02183000 
02183250 
02183500 
02183750 
02184000 
02184250 
02184500 
02184750 
02185000 
02185250 
02785500 
02185750 
02186000 
02486250 
02186750 
02187000 
02187250 
02187500 
92187750 
02188000 
02188250 
02188500 
02488750 
02489000 
02189250 
02189500 
02189750 
02190000 
02190250 
02190500 
02190750 
02191000 
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00093002831 
00093002831 
000980009%2 
0009%00909:90 
00093002933 
0009002933 
00093002933 
0009:0031%2 
00093003132 
0009:0031:2 
00091003132 
00093003230 
00092003434 
00093003630 
00093003732 
0009200378 3 
00098003830 
0009:003834 
0009003881 
00093003831 
NEXT SEG 

0003:0222:1 
0003:022234 
00032022234 
0003:0902%4 
0003%09020%4 
0003%*0202%4 
00033022231 
00033022231 
0003:022231 
0003:0223:32 
00033022533 
00033022610 


3 


00038022782. 


00033022733 
00033090831 
0003!:0909%90 
00033023020 
00031093084 
00033023133 
0003:023434 
00033023434 
0003:0234:14 
00033023434 
0003302343 4 
0003:0234:14 
0003:0235%2 
0003:0235%3 
0003093630 
0003t0236:0 
0003:0237:2 
0003:0237.33 
0003:30238:0 
0003:0238:0 


0003:0239%2. 


00033023982 
0003!0239%2 


C) 


aes See ae aa OO a © Se 


OP i, PO We ae. 
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C) 


SWITCH SWis_LCARD>» LCARDs | TAPE AWAY» LCARD»LTAPE? 
IF SEQTOG THEN % RESEQUENCING, 


BEGIN 

IF ToTALNO = "10 OR NEWBASE THEN 
BEGIN 
NEWBASE t= FauSes GTizgi:= TOTALNO:=BASENUM 
END 


FLSE GTIlts:= TOTALNOs= TOTALNO + ADDVALUE? 
CHANGESEQ(GTI1*LCR)3 
END} 
IF NEWTOG THEN 
TF WRITNEWCLENSFCR) THEN WRITECNEWTAPE » 10,LINE #93 
IF oMETTING THEN IF NOT LISTATOG THEN Go AWAY3 
Go SWELASTUSED); 


IF LISTER OR LISTPTOG THEN PRINTCARD3 
GO AWAY; 


IF LISTFR THEN PRINTCARD? 
¥ GO AWAY: 
AWAYS 

FND OUTPUTSOURCES 


PROCEDURE BEGINPRINT? 
BEGIN 
STREAM PROCEDURE STUFF ¢No1,)23 VALUE NB 


BEGIN 
3 DS:=8 LIT " "3 STs=bLs DS:=13 WDS; 
oc Ns DS:=8 DEC}; 
END: 
STUFF CBEGINSTACKERBSPOINTJaLIN)} 
IF NOHEADING THEN DATIME? WRITELINES 
FND REGINPRINTS 


PROCEDURE READACARD3 

CommENT READACARD READS CARDS FRom EITHER THE CARD READER OR THE 
TAPE MERGING AS REQUESTED aND CREATING A NEW TAPE AND 
LISTING IF REQUESTEDe READACARD alsO INSERTS aA PERCENT 
sTGN as AN END OF CARN SENTINEL IN COLUMN 73 AND SETS 


FCRsNGReLeR» TLCRs ANn cbcR; 
BEGIN 
PROcFnURE RFADTAPES 


REGIN 
LABEL ENDRFADTAPE», FOFT? 


READ CTaAPEs 10% TBUFFL*J)CEOFTI3 
LCRS=MKABS(TBUFFL9])3 

GO TO ENDREADTAPE3 

EOFTS 

DEFINEARRAYC25]:="NOZENDo"R? “E%7184325)3 

DEFINEARRAY(L34]3:="9999" g& "9999%(1:25:23]; 

TLERS= MKaRSCDEFING ARRAY(34)); 

PUTSEQNO (NEFINEARRAYC33J-TLOR@B)3 

TURNONSTOPLIGHTC"%S", TLCR™8)3 


10 


3 


1 


3 


2 


3 


START OF SEGMENT #4 4K aK K 
02191250 T 0010:0000:0 
02191500 T 0040%0006:0 
02391750 T 0040!0007%3 
02192000 T 0010#0008:0 
02192250 ~— 00103000933 
02192500 T 0010!0010:0 
02192750 T oO010?2001182 
02193000 T 0010:0012!0 
02193250 T 0010:001431 
02193500 T 00102001533 
02193750 T 004030034533 
02194000 T 0040004630. 
029942950 T 00140!0093!2 
07194500 T 0010:!0025:3 
02194750 T 00107002733 
02195000 T 0010:0028:0 
02195250 7~ 0010:0045:2 
02195500 fF 0010:004533 
02195750 7 00103004630 
02196000 7 001020062:0 
02196250 T 0010:0062!0 
02196500 T 0010:0062!0 
10 1S 63 LONGse NEXT SEG 
%106= 021965190 C 000320239202 
%106= 02196520 C 00033023980 
¥108= 02196530 C 00034023982 
START OF SEGMENT * kek RRR ERK 1 
4108" 02196540 C 0011000020 
106° 02196550 ¢ 0011:°000030 
2108" 02196560 C 00118000230 
2198" 02196570 ¢ OO1180002:1 
42108" 02196580 Cc 0011:000231 
4108" 02196590 Cc 00112000431 
%108= 02196610 C 00417001620 
141 $18 17 LONGs NEXT SEG 
02196750 T 0003:0939%2 
02197000 T 000310239:2 
02197250 T 00033023932 
02197500 T 00033023932 
02197750 7t 00033023932 
02198000 tT 00032023922 
02198250 T 00033023932 
02198500 t 0003:0239%2 
START OF SEGMENT 22k eR OK 1 
02701500 T 0012:0000!0 
%1{05-= 02204519 Cc 0012%0000:0 
START OF SEGMENT **##** kk 1 
¥105= 022901750 P 00137000020 
%105= 02202000 P 0013%0005%2 
%105* 02207010 C 0013000732 
2105" 02202020 ¢ 0013000733 
4105" 02202030 € 0013:!0008'0 
21405" 02202040 ¢ 0014320010:0 
4105" 02202050 ¢ 0013:001231 
#105" 02202060 c 0013:001431 
105 02202070 ¢ 


0013!001630 
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ENDREADTAPE 
END READTAPES 


PROCEDURE SEQCOMPARECTLCReCLCRe LIB)3 VALUE LIB;3 
REAL TLCRe 
BEGIN 
MentuMs:="¢ "3s 2 CARD READER® 
IF GTUs=cOMPaRr(TLcR,cbLcR)=0 THEN 
REGIN 
LCRt=TLcCRs LASTUSFDF=33 
MENYUMS="T "3 % TAPE yNPUT, 
END 
EI.SE BEGIN 


BOOLEAN LIB$ 
CLCR 3 


IF GTi # 4 THEN & TAPE AND CARD HAVE SAME SEQ 


BEGIN 

MEDIUMs="P %; 2 CARD PATCHES TAPE, 
READTAPES 

END3 


LOR:SCLCR3 
LASTUSED!=23 
END} 
FNn OF SEQ OMPaARE; 
LABFL CARDONLY, CARDLAST» TAPELAST» 
EOFs USETHESWITCH» 
COMPAR» TESTVOID»s XyT3 


EXITs FIRSTTIMEs 


SWITCH USESWITCHISCARDONLY*CARDLAST»s TAPELASTsFIRSTTIMES 
IF ERRORCOUNT2ZERRMAX THEN ERR(C611)3 % ERR LIMIT EXCEEDED = STop, 


USETHESWITCH; 
DOLLAR? TOG:=FALses; 
GO 70 USESWITCHELLASTUSFNJ3 
MOveCLo I NFOCLASTUSED A LINKReLASTUSEDeLINKC]» 
NFFINEARRAYELDEFINEINnEX*2))3 
LASTUSFD t= LASTUSED + 13 
NCR t= LCR43 
GO TO XIT; 
FIRSTTIME? 
REANCCARDs10sCBUFF(*1)3 
FCRi=nCRia(LCRt=MKABS(CBUFF(9I]))=93 
MEDyUMse"C 3 
IF EXAMINCFCR)#*8" AND LISTER THEN PRINTCARD3 
PUTSEQNOCINFOLLASTSEQROW*LASTSEQUENCEJ »LCR)3 


CARDNUMBER?SCONVCINFOLCLASTSEQROW*sLASTSEQUENCE"115558)3 


TURNONSTOPLIGHTC™S"»LoR)3 

GO XIT; 
COMMENT WE HAVE JUST INI TIaALYZED CARD INPUTS 
CARDONLY3 

REANCCARD® 10eCRUFFL*1)35 

LCR t= MKASS(CBUFF[9])3 Go EXIT: 
CARDLAST?: 
REANC CARD» Ine CBUFFC «J )CEOFI; 
CLCR 35 MKABSCCRUFFI9]); 
GO COMPAR; 


DFFINFARRAYL25) s="NOsEND,MRMENL 1 £43353 
DEF INFARRAY S34) 8="9999MR"9999N! 1 § 2582373 
CLOR!=MKABS( DEFINE ARRAY? 34))3 
PUTSEQNO(DEFINEARRAYE 337+CLCR*8)3 


2105" 


2 TAPE HAS LOW SEQUFNGF NUMB 


2108" 


13 18 


02202080 
02202250 


C 
T 


Pu LONG» 


02202500 
02202750 
02203000 
02203250 
02203500 
02203750 
02204000 
02204250 
02204500 
02204750 
02205000 
02205250 
02205500 
02708500 
02208750 
02209000 
02209250 
02209500 
02709750 
02210000 
02210250 
02240500 
02219750 
02211500 
02211750 
02211800 
02212000 
02212250 
02212500 
02242750 
02243000 
02213250 
02213500 
02213750 
02244000 
02214100 
02214200 
02214250 
02214260 
02214500 
02214750 
02215000 
02215250 
02215500 
02215750 
02216000 
02216250 
02216500 
02216750 
02217000 
02717250 
02217500 
02217750 
02218000 


AAA AAA RH HATHA ATA OHA AAA BTA AA AFA AHA A AA AH SH TI IS 


NEXT SEG 


00132001733 
00135001820 


0012:0000!0 
001230000:0 
0012:0000!0 
0012:0000:0 
00123000031 
0012:0003!2 
0012:0003%3 
004230005%2 
001270006:0 
0032:0006:0 
0012%0009%2 
0012!000933 
00123001080 
001240014132 
00122001133 
00123001133 
0012:0012:0 
00123001332 


0012:0013%2 


00122001532 
001213001522 
00142:0045:2 
0012%0045%2 
00122002030 
0012:002312 
0012:00233:2 
001230023:3 
00121002533 
001270028: 4 
00122002933 
004230031%2 
00422003220 
00124003231 
00123003332 
0042%0037%2 
00127004084 
00127004123 
0012:0061:2 
0012:0063:2 


0012:0067:2. 


0012:0068:0 
0012:0068:1 
0012:006831 
0012:0069%2 
001280073182 
0012!0075%3 
0012:0076:0 
0012:0081:2 
0012:0083:2 
0012:0083:3 
00123008450 
0012008630 
001423008834 
0042009084 


12 


CPG ee aa We 


C) 


ou ves 


. 


Ce WO? $@ 


C.D 


© 


ce 39- Wor © 


am 
\ 
card 


TURNONSTOPLIGHTC"S*»CLCR*8)3 


GO COMPAR} 
COMMENT THIS RELEASES THE PREVIOUS CARD FROM CARD READER AND 
SETS Up CLCR3 
TAPELAST! 
READTAPE} 
COMMENT THIS RELEASES THE PREVIOUS CARD FROM TAPE AND SETS UP TLCR$ 
COMPAR: 
. .SEQCOMPARE CTLCRechcR» FALSE); 
FXITS 
NcR te feRis lcR * 93 
COMMENT SETS UP NCR AND FCR} 
IF FXAMINCFCR)#"S" THEN % S#CARDS DON'T COUNT, 
IF COMPARE CMKABSCINFOLLASTSEQROWsLASTSEQUENCEJ )»LCRI=4 THEN 
BEGIN 
FLAGC610)3 & SEQUENCE ERROR, 
SEQUENCEERRORCLIN)? 
END? 
IF LASTUSFD=3 THEN 
RBFGIN 
tr VOINTAPF THEN @O USFTHESWITCH? 
1F VOTDTCR#90 THEN 
IF COMPARE(LCReVOIDTCRI=0 THEN GO USETHESWITCH3 
END? 
IF EXAMINCFCR)J="8" THEN 
BEGIN 
IF LISTPTOG OR PRINTDOLLARTOG THEN PRINTCARDS3 
NCRS=NCR+327683 DOLLARCARD; 
COMMENT DONT FORGET THAT NCR IS NOT WORD MODE» BUT CHAR+e MODE POINTER? 
GO USETHESWITCH?3 
ENDS 
IF eXaMINCrcR)=" "© THEN 
Ip NOLLAR2ZTOGI=FXAMINCFCR+32768)=5"8" THEN 
BEGIN 
OUTPUTSOURCE3 
NCRt=NCR4655363 % SCAN PAST * &" (CHARACTER MODE), 
DOLLARCARD3 
END? 
IF VOIDING THEN Go USETHESWSJTCH; 
IF yvoIDCR#0 THEN 
IF COMPARECLCR» VOIDCR)>0 THEN VOTDCR:=VOIDPLACE?:=0 
FLSE GO USETHESWITCH: 
IF vOInNTAPE THEN GO TESTVOINS 
IF vOTNTCR#O Turn 
tf COMPARF¢ LCR» VOrDTCR)>0 THEN VOIDTCR#=VOIDTPLACE##0 ELSE 


TESTVOID? IF LASTUSED=3 THEN Go USETHESWITCHS 


CARDCOUNT?#=CARDCOUNT+15 
IF NoL_LAR2ToG THEN GO USETHESWITCH3 
PUTSEQNOCINFOLLASTSEQROW*LASTSEQUENCE J »LCR)3 


CARONUMBER: SIF SEQTOG THEN TOTALNOFADNVALUE ELSE %108° 
CONVCINFOCLASTSEQROW*LASTSEQUENCE"1)2598)3 %108" 
OUTPUTSOURCE? 
IF OMITTING THEN GO USETHESWITCHS 
V3 
TURNONSTOPLIGHTC™S"e LCR} 


X1IT: 


02718250 
02218400 
0227438500 
022718750 
02219000 
02219250 
02219500 
02219750 
02224250 
02224500 
02225000 
02225250 
02225500 
02225750 
02226000 
02226250 
02226500 
02226750 
02227000 
02228050 
02228075 
02228100 
02228125 
029278150 
0222784175 
02228250 
02728500 
02228750 
02229000 
02229250 
02229500 
02229750 
02230000 
02230100 
02230250 
02230500 
02230750 
02231000 
02231250 
02231500 
02231750 
02232000 
02232250 
02232500 
02233000 
02233500 
02234000 
02234500 
02234600 
02234750 
02234800 
02234900 
02235000 
02235250 
02235500 
02235750 
02237750 


HAH AHODOAH ABA HAA A BHAA AAA HHA HHH HAH TF A HAHA TH HH At HA TH TIT TT 4 


0012009220 
00424009333 
00122009383 
0012009712 
0012t0097:2 
0012:0097%2 
0012:009782 
0012;0097:3 
00123009733 
0012:0098:0 
0012:!0099%2 
0012:0100:0 
00123010133 
00123010133 
00121010333 
00123010850 
0012'010821 
00128010932 
0012:011020 
00122011030 
00123011112 
00422011123 
001230443%2 
00421044343 
00124011631 
00123011681 
0012:0118%1 


00121011932 . 


00123013631 
0012:0138:0 
00123013830 
0012:014030 
00123014030 
00123014133 
0012%0145%2 
0012%014533 
0012:04;4680 
00123014732 
00128014783 
00122014733 
00123014982 
0012:0150:0 
00122015332 
00122015410 
00122015533 
001280345634 
00121016034 
00142%0165%2 
001280466? 4 
00123016733 
00122016923 
0012:0172:0 
00123017533 
001230176:0 
00123017733 
00121017783 
00123017631 


(3 


O 


END READACARD3 


REAL PROCEDURE CONVERT? 
' : BEGIN REAL T3 INTEGER N3 
TLOeO} THe 
Te CONVCACCUME I], TCOUNT®N«CCOUNT"TCOUNTIMOD 833 
FOR N* TCOUNT+N STEP 8&8 UNTIL COUNT= 17 00 
IF DPTOG THEN 
- BEGIN 
NOUBLECTHI* TLO2 100000000, Os0sxsCONVCACCUME ITI eNe Bd pOntnen 
THreTLO);3 
TeTHYy3 
END ELSE 
Te 1TX1000000004 CONVCACCUMr110N28)3 
CONVERT.T3 
END: 


REAL STREAM PROCEDURE FETCHCF)3 VALUE F3 

BEGIN SITtF3 SPt=S178s PyssLOc FETCHs pS:=WDS 
PROCEDURE NUMPINFO$ 

Bear 

ARRaY ACOf14 3s NTEGER JENEN»DWAE 


END FETCH$ 


STREAM PROCEDURE OCTALWORDS¢SeD,N)? VALUE N3 
BEGIN 
Sr:=S3 DOlyeD3 
NC2CACDS:=3 RESET; 3¢I1F SB THEN DS:=1 SET ELSE 
NSs=1 RESETs SKIP 1 SRdds DSs=1 LIT ™ “"y3pSsF2 LIT™ ")y3 
END OF OCTALWORDS; 
STREAM PROCEDURE ALPHAWORNS(S*DeN)3 VALUE N3 
RBFGIN 
SrisSs plieps 
Ne2c4enst=at LIT" 3 nSt=i1 CHR)? OSt=a4 LIT" "23 OS8e2 LrT™ 3 
END OF ALPHAWORDS; 
IF NOHEADING THEN DATIMESWRYITECLINECDBLJ]»<//"ELBAT™>)3 


FoR JEDENt=0 STEP 6 UNTIL 74 Do 
BFGIN 
BLANKETCL42A)$ OCTALWORDSCELBATL JEDENI] + A»6)3 
WRITECLINECOBLIJ*15*AC#I1)3 
END? 
BLANKETC14¢a)3 OCTALWORDSCELBATL72]°A04)3 
WRITECLINE FpRU] 21 SeAle])3 
FOR JENEN?=0 STEP 1 UNTIL NEXTINFO DIV 256 pO 
BFGIN 
WRITECLINGCOBL I] e<//"yNFOL*s Toe" a *I >, JE DEN D3 


FOR DWAts0 STEP 6 UNTIL, 251 Do 
BEGIN 
BLANKETC14*A)} ALPHAWORDSCINFOC JEDEN*DWAI] ®A26)3 
WRITECLINE® 159 AC#I)3 
RBLANKFETC14*#ay; OCTALWORDSCINFOLUEDEN*DWAIJ*# A96)3 
WRITECLING EC palhd,15eAle])3 
FND} 
BLANKETC14,A)3 ALPHAWORDSCTNFOLCVEDENs 2521, Ap4)3 
WRITECLINE s15eAC*1)3 


02238000 T 00127017932 

12 1S 183 LONGe NEXT SEG 3 
02248000 T 0003:02939%2 
02249000 T 00032023982 

START OF SEGMENT #& x24 # KK me 14 
02250000 T 001480000:0 
02251000 T 00142000031 
02252000 T 00141000532 
02253000 T 00143001080 
02254000 T 0014%001030 
02255000 T 0014#0010?4 
02256000 T 00144:00;5t2 
02257000 T 0044#00;16:0 
02258000 T 00414:001684 
022959000 T 004440016834 
02760000 T 0014%0024!0 
02261000 T 001430024: 4 

14 1S 28 LONGe NEXT SEG 3 
02762000 T 00038023982 
02263000 T 00032023932 
02264000 T 00032024220 
02264050 T 00038024280 
02264400 T 00032024220 

START OF SEGMENT *% 4: KR K 15 
022764400 T 00152000183 
02264450 T 0015#000133 
02264500 T 00152000332 
02264550 T 00151000333 
02264600 T 00153000681 
02264650 T 0015:0009%2 
02264700 T 0015%0009%2 
02264750 T 00152000932 
02264800 T 001530040:0 
02764850 T 0015#00140%1 
02264900 T 001520034314 
02264950 T 00158004424 

16 1S 6 LONGs NEXT SEG 15 
02245000 T 0015!0019%2 
02265050 T 0015:20020:0 
02765100 T 0015:0020:0 
02265150 T 0015%0023%2 
02265200 T 0015:002732 
02265250 T 0015:0029:3 
02265300 T 001528003231 
02265350 T 0015003631 
02265400 T 00152004182 
02265450 T 0015:004132 

17 1S 8 LONGs NEXT SEG 15 
02965500 T 0015004820 
022765550 T 001510049%2 
02265600 T 00152%0049%2 
02265650 T 00158005221 
02265700 7 0015:0057:2 
02265750 7 00153006081 
02265800 T 0015:0065%2 
02965850 T 0045:0067:2 
02765900 T 0014520071482 


OY, AO. ea 


Ca 3 ee AA HE ae) Cy oe 


C) 


C) 


cassettes Ae atin wae BLANKETC{4*#A)3 OCTALWORDSC(INFOLUEDEN® 29529] 2A0d)3 
WRITECLINELOBLI]9°15*°Ar*])3 
EnD3 

END oF DUMPINFOo; 


DEFINE SKAN = BEGIN 
COUNT:S=RESULT:=,aCCUM[11]3=03 
ScANNFR} 


Q@s=ancuMeC id; 


oh i ohh END #3 


COMMENT pOLLARCARn HANDLES THE COMPILER CONTROL caRDs, 
ALL COMP,LER™ AND USER*DEFYNED OPTYONS ARE KEPT 
IN THE ARRAY "OPTTONS*", 


EACH OPTION HAS A TWORWORD ENTRY 


7 _ WorD CONTAINS 
1 ENTRY FROM aCCUME 1]: OOXZZZZ» WHERE 
ae X IS THE SIZE OF THE ID AND 
ZZZ7Z 1S THE FIRST FIVE CHARS OF THE 1D. 
2 PUSH™NOWN, 47°BrT STACK CONTAINING Tur 


HJSTORY OF THE SFTTINGS OF THyS OPT]ON, 


IN "FINDOPTION'*® ALL COMPI|,ER*DEFINED OPTIONS ARE USUALLY 
LOCATED BASED UPON A UNIQUE NUMBER ASSIGNED To EACH, 
FOR ALL USER@=DEFINED OpTIONS» A SEQUENTIAL TABLE SEARCH tS 
INITIATED USING "USEROPINX*" AS THE INITIAL INDEX INTO THE 
ae ae ae "OPTIONS" ARRAYe IF THE NUMBER OF COMPILER™DEFINED OPTIONS 
IS CHANGENs THEN "USEROPINX™ MUST BE ACCORDINGLY CHANGFDe 
THE NUMBER OF USER DEFINED OPTIONS ALLOWED CAN BE 
CHANGED BY CHANGING THE DEFINE “"OPaARSIZE", 
THE VARTARLE "OPTIONWORD” CONTAINS THE CURRENT TRUE OR FaLse 
SFTTING OF ALL OF THe cCOMP]LER™DEFINED OPTIONS» ONE BIT PER 
OPTION, 
& 
EpOreaN PROCEDURE FINDOPTIONCBIT)$ VALUE BIT INTEGER BIT3 
ye pe Re EGYN 
LABEL FOUND; 


REAL IDs 
OPINXs#2@xpilt74; 
WHILF rosSOPTIONSCOPINYs=0PyNX+2]#40 DO 

tr S=In THe N GO FOUNn: 
OPTrONSPOPINX]#=Q3 % NEW USER*DFFINED OPTION, 

FOUND? ¥103= 
TF OPINX +4>0PARSIZE THEN FLAG¢*602) ELSE % TOO MANY USER OPTIONS 
FINDOPTION®=Boo,.EANCOPTIONSLOPINX+11)3 
END FINDOPTION3 


PROCEDURE DOLLARCARN3 
BEGIN 
STRFAM PROCFDURE RESTORESFQNUMCLCReINFO)$ VALUE LeR} 
RFGIN 
NTs=lLcR3 
_ FND? 
PROPFOURE SWITCHITCXBIT)S VaLUE XBIT3 INTEGER XBIT3 


SISSINFOs DSt=Wwns; 


15 IS 


02265950 
02266000 
027646050 
02266100 


88 LONG 


02277000 
02778000 
02279000 
02280000 
02281000 
02282000 
02283000 
02284000 
02285000 
02286000 
02787000 
02288000 
02289000 
02290000 
02291000 
02292000 
02293000 
02294000 
02295000 
02296000 
02297000 
02298000 
02799000 
02300000 
02301000 
02302000 
02303000 
02304000 
02305000 
02306000 
02307000 
02308000 
02309000 


START OF SEGMENT 


18 IS 


02310000 
02311000 
02312000 
02313000 
02314000 
02315000 
02316000 
02317000 
02318000 


15 LONG 


02319000 
02320000 
02320200 


START OF SFGMENT 


02320400 
02320600 
02320800 
02321000 


T 
T 
T 
T 
e 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
P 
P 
T 
T 
’ 
T 
T 
T 
* 
T 
T 
T 
T 


tok Rk 


0045!0075%2 
00152007932 
00152008352 
00153008333 
NEXT SEG 
00033024280 
0003:0242:0 
00033024230 
0003:024230 
0003:0242:0 
00033024230 
00038024220 
00033024230 
00033024230 
0003%0242%0 
00032024210 
00033024230 
0003:0242:0 
0003%0242:0 
00038024230 
0003:0242:0 
000330242:0 
0003:0942:0 
0003%024230 
00032024230 
0003!024230 
0003%024230 
0003:0242:0 
0003%024230 
00033024230 
0003:0242:0 
0003:0242:0 
0003:0242:0 
0003:0242:0 
00031024230 
0003:0242%0 
00031094970 
0003024250 
ak OK ak aK 1 
0018:0000:0 
0018:0000:0 
0018:0001:3 
00188000532 
0018:000634 
0018%0008:0 
0048:000830 
0018001034 
0018:0032!1 
NEXT SEG 
0003%0242:0 
00033024230 
00033024220 


001980000:0 


001930000:0 .. 


0019:0000:1 
00198000182 


3 


8 


3 


19 


is 


CY 


2 


op; 


CO 


RFGIN 
BOOLEAN B,T} 


INTEGER SAVEINX3 

LABEL XMODE Os XMODE4*XMQDE 2» XMOUE 3»XMODE4e ALONG 

SWITCH SWr=XMODEO*XMODE 1 *XMODE2*XMODE3*XMODE4} 

SETTINGS =FINDOPTIONCXBIT)3 SKAN3 

GO SWEXMOnrt+id; 

% FIRST OPTION ON CARD» BUT NOT SFT» RESET»? OR POP, 
OPTTONWORns=RBOOLEAN(O)$ 

FOR SAVFINXt=4 STEP 2 UNTYL OPARSIZE pO OPTYONSCSAVEINX1]:=03 
XMODEt=LASTUSEDi=43 gy CARD INPUT ONLY, 

% NOT FIRST OPTION AND NOT BEING SET» RESET» OR POPPED, 
OPTIONSLOPINX+y]S=REALCTRUEDS 


XMONEO3 


XMODE?3 


IF XBITSUSEROPINX THEN OPTIONWORD?=OPTIONWORD & TRUECXBIT#4]73 


GO ALONG: 
% RESET, 
OPTIONSLOPINX411]3 


XMODE 23 
sREALCFALSE & SETTING£L132:46))3 


IF XBITSUSFROPINX THEN OPTSONWORDs=OPTYIONWORD & FALSELCXRIT?:1I]3 


GO ALONG; 

% SET. 

SAVFINXtS0PINX; & REMEMBER OPTION WE ARE SETTING. 

RE=IF Q='";=0000" THEN BOOLFEXP ELSE TRUES 
OPTIONSESAVEINX+1]$=REALCB & SETTINGE12461)3 

1F XBIT<USEROPINX THEN OPTTONWORD#=OPTIONWORD & B CXBIT?113 
GO ALONG$ 

% POP, 

OPTIONSLOPINX+1]3=REALCBI=SETTING. (1246193 

IF XBIT<USEROPINX THEN OPTIONWORDS=OPTIONWORD & B CXBIT31]3 


XMOnE3:3 


XMODE4?$ 


ALONG? 
END SWITCHITS 


LABFL EXIT*® AGAIN» SKANAGAIN*® LENGTH sLENGTH2*LENGTH3esLENGTH4s 
LENGTHS» LENGTH6 » LENGTH? »LENGTHB ae LENGTH9» 
WHATISITs 
CARDOPTIONeMERGEOPTYONS 
SWITCH OPTIONLENGTH!? =LENGTH1 »WHATISIT»LENGTH3>*LENGTH4 » LENGTHS» 
LENGTH6»sLENGTH? »WHATISITeLENGTH9sWHATISIT? 
INTEGER SRESULT*SCOUNTS 
ALPHA VOIDRANGE;: 
DOLLARTOGS=TRUF$ 
MOVe C10O*acCUMCOJsDEFINEARRAYLO])3 % SAVE INFORMATION FOR 
ScOUNTs=COUNTS SReSUuLTs=ResubTs 2 "TABLE" TO RESUME SCAN, 
XMOnre=03 
PUTSFONOCTNEFOCLASTSE@ROW,LASTSFQUENCE 1 ,LCR)3 
TURNONSTOPLIGHTC™S",LCRI3 
SKANAGAYN? 
SKAN? 
AGAIN: 
GO oPTIONLENGTHEMINCCOUNTs10))3 
LENGTH! , 
IF a = "140000" THEN GO EXIT; 
Ir g = "150000" THEN 
BEGIN SWITCHITCPRINTNOLLARBIT)# GO AGAIN END3 
JF @ = '4,0000" THEN GO SKANAGAYNS 
GO WHATYS]T3 
LENGTH2: * NO OPTIONS OF THIS LENGTH ARE CURRENTLY IMPLEMENTED, 


02327000 
02323000 


START OF SEGMENT 


20 IS 


02324000 
02395000 
02326000 
02327000 
02328000 
02329000 
02330000 
02331000 
02332000 
02333000 
02334000 
02335000 
02336000 
02337000 
02338000 
02339000 
02340000 
02341000 
02342000 
02343000 
02352000 
02353000 
02354000 
02355000 
02356000 
02357000 
02358000 
02359000 


59 LONG 


02360000 
02361000 
02362000 
02363000 
02364000 
02365000 
02365100 
02365200 
02366000 
02366100 
02366200 
02367000 
02368000 
02369000 
02370000 
02371000 
02372000 
02373000 
02374000 
02375000 
02376000 
02377000 
02378000 
02379000 
02380000 


T 
T 


OR ORK 
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0019000182 
0019t0001%2 


0020000030 
0020!0000!0 
0020:0000:0 
00203000533 
00208001182 
0020:00313:3 
00204001420 
00204004434 
00201001923 
0020%0000%1 
002030001:2 
00203002234 
00203002624 
00202002732 
002680028:0 
00203003031 
0020300341 
0020:00353%2 
002030036:0 
0020%0036!1 
00203003983 
00202004224 
0020:0046%1 
00203004840 
00203004830 
00203005132 
002030055!2 
0020005630 


NEXT SEG 19 


001980001%2 
00193000142 
00193000132 
0019:0001%2 
00193000142 
00492000333 
00198000982 
00198000982 
0019:0009%2 
001980010%4 
00193001231 
001920014470 
00198004494 
0019:20016%1 
001980047383 
00193004830 
00194009433 
001930022:0 
00193002680 
0019:0027%2 
00193002830 
00193002982 


0019%0033%2. 


001493003430 
001980036:0 


20 
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C} 
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(e 
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LENGTH33 
IF a 


IF 9 


IF Q 


= "3SFETOO" THEN 

RBFGIN XMODF%=3% GO SKANAGAIN ENDS$ 

= "3P0P00" THEN 

BEGIN XMODE?=43 GO SKANAGAIN END3 

= "3NEWOO" THEN 

BFGIN 

SWITCHITCNFE WRIT) 3 

tr @ = “At~PEO" THEN GO SKANAGAIN3 

GO AGAINS ‘ 
END} 

= "3SFQ00" THEN 

BEGIN SWITCHITCSEQBIT)$ GO AGAIN END$ 
= '"3PRT00" THEN 

BEGIN SWITCHITCPRTBIT); Go AGAIN END3 
= "3MCpOQ" THEN . 

BEGIN SWITCHITCNCPBIT); GO AGAIN ENDS 


GO wHATISIT?: 


LENGTH4: 
IF Q 


IF 


CARDOPTTIO 


IF Q 


= "a4lrsTo" THEN 
BFGIN 
SWITCHIT¢CLISTBIT)3 
GO AGAIN} 
END: 
= "4VOTDO" THEN 
BEGIN 
IF XMODE=0 THEN 
BEGIN 
GETVOTNCVOIDRANGEsNCR»eLCRe INFOLLASTSEQROWsLASTSEQUENCE])3 
IF VoJNCR=O THEN VOIDCR?=MKABSC(VOIDPLACE) ELSE 
IF COMPARECMKABSCVOIDRANGE) ®VOIDCR)#1 THEN GO TO EXIT} 
MOVEC1*VOIDRANGE*» VOIDPLACE)3 


GO EX1T3 

ENDS 
SWITCHITCVOTDBIT)3 
GO AGAIN3 
END? 
= "4XREFOw THEN BEGIN SWITCHITCXREFBIT)3 IF BOOLEANCXMOQDE) THEN 
DEFINING := BOOLEANCREALCDFFINING) 810124731193 %108" 

: GO AGAIN END; %108° 

= "4BENDO" THEN BEGIN SAWITCHITCBENDBIT)$ GO AGAIN END; 106" 


= "4GOMITO" THEN 
RFGIN IF NOT pOLLaR2TOG THEN BEGIN PRINTCARD: FLAGC605)3 ENDS 
SWITCHITCOMITBIT)3 GO AGAIN END3 

= "4CARDO" THEN 

BEGIN 

Qi=tATAPEOw} & FAKE oUT SWITCHIT, 

SWITCH TCMERGEBIT)3 

IF XMODE#9 THEN MERGETQGt=noTlT MERGETQG3 

OPTIONSC2xMERGEBIT@1]3= % CARD IS 
REALCSETTING & CMERGETOG)£4731])3 & INVERSE OF MERGE. 

IF MERGETOG THEN GO MERGEOPTIONS 

Ns 

LASTUSEN3={3 

GO AGAIN: 

END3 

= "G4TAPEO” THEN 


02381000 
02382000 
02383000 
02384000 
02385000 
02386000 
02387000 
02388000 
02389000 
02390000 
02391000 
02392000 
02393000 
02394000 
02395000 
02396000 
02397000 
02398000 
02399000 
02400000 
02401000 
02402000 
02404000 
02405000 
02406000 
02407000 
02408000 


02409000: 


02410000 
02410500 
02411000 
02412000 
02413000 
02414000 
02415000 
02418000 
02419000 
02419100 
02419110 
02419120 
02419200 
02420000 
02421000 
02421100 
02422000 
02423000 
02424000 
02425000 
02425500 
02426000 
02427000 
02428000 
02429000 
02430000 
02431000 
02437000 
02433000 


AA HAHAHAHAHA HAHAH AHO NOOO AHH AAT HA A At I AA AI a A I tt St HS 


00192003680 
00192003630 
00194003614 
0019%0040:0 
00193004084 
00191004430 
00193004414 
001930045:2 
00191004610 


0019%0047%2.- 


0019!0050:0 
0019%005030 
001940050314 
00198005420 
00198005481 
00191005880 
00193005831 
001930062:0 
00193006231 
0019%0063%2 
00193006313 
00192006440 
001930065%2 
0019%10067%2 
0019:0067%2 
0019%0067%3 
00194006880 
0019%0069%2 
0019#0069%3 
00192007230 
001912007512 
001930080814 
0019300813 


0019%0082t0 .. 


001950082t0 
0019300832 
001920083%3 
00193008323 


00192008533 


001930088t0 
00193009030 
001923009480 
00193009481 
00192011420 
001920144582 
00198041680 
004930146314 
00193014782 
0019%011880 
001980121383 
0019%0123:%2 


00192012583. .- 


00198012782 
00191042782 
00198012723 
00192013182 
00193043422 


} 


Var 


vsincss Forms, Irs sv 
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BEGIN 02434000 T 
SWETCHITCMERGEBIT)$ 02435000 T 

TF NOT MERGETOG THEN Go CARDOPTION3 02436000 T 
MERGEOPTION: 02437000 T 
LASTUSED:=s03 % NEXT CARD IS READ FROM READER, 02438000 T 

IF MAXTLCR=0 THEN 02439000 T 
BEGIN 02440000 T 

INTEGER STREAM PROCEDURE FEUCFeT)3 VALUE T3 02441000 T 

START OF SEGMENT * 

REGIN 02442000 T 

SI:sF3 NyssLoc Ts DSt=WOS; 02443000 T 

ST#=Ty Slt=Sy"163 OL =LOc FEJUs OSt=swpS; 02444000 T 

END FEJ3 02445000 T 

STREAM PROCEDURE FIXCFeT)# VALUE T3 02446000 T 

RFEGIN 02447000 T 

SUt=F3 STs=S7724: Hre=LOc Ts DSt=WwDS3 02448000 T 

nlt=T3 pls=pr+473 SKIP 4 DBs DSt=2 RESET} 02449000 T 

2CDL2=D1+48)3 DSss8 LIT"00#01+04"3 02450000 T 

FND FIX; 02451000 T 

Ir GTit=FEdYCTAPF20)=10 THEN 02452000 T 

REGIN 02453000 T 

REWINDCTAPE)$ FIXCTAPE+O)3 02454000 T 

END? 02455000 T 
MAXTLORE=GT1+TLORi=9+MKABSCTBUFFIOI)3 02456000 T 
READCTAPEs10+TBUFFL*])# % INITIALIZE TAPE INPUT, 02457000 T 
LASTUSEDt=23 02458000 T 

ENDS 02459000 T 

24 IS 24 LONGes 

GO AGAIN 02460000 T 

END} 02461000 T 

IF 9 = "4PAGEO" THEN 02462000 T 
BFGIN 02463000 T 

IF LISTER THEN WRITECLINECPAGE))3 02464000 T 

GO SKANAGAIN3 02465000 T 

END? 02466000 T 

IF = "4INFO00" THEN 02467000 T 
BEGIN DUMP]NFO$ GO SKANAGAIN END3 02468000 T 

iF = "ASFRSO" THEN 02469000 T 
BFGIN SWITCHITCSEGSBIT)$ GO AGAIN END} 02470000 T 

IF = "4NESTO" THEN 02471000 T 
RFGIN SWEITCHITCNESTRIT)$ GO AGAIN FND3 02472000 T 

IF Q = "4pnrcKO" THEN 02473000 T 
RFGTN SWITCHITCDECKBYT)# GO AGAIN FND3 02474000 7 

GO WHATSSTT3 02475000 T 
LENGTHS: | 02476000 T 
IF @ = "SRESET" THEN 02477000 T 
BEGIN XMODFi=23 GO SKANAGAIN END# 02478000 T 

IF 9 = "5LISTp» THEN 02479000 T 
BEGIN SWITCHITCLISTPBIT)$ Go AGAIN: END3 02480000 T 

IF 9 = "SVOIDT" THEN 02481000 T 
BEGIN 02482000 T 

IF XMODE=0 THEN 02483000 T 
BEGIN 02484000 T 
GETVOINCVOLDRANGE »NCReLCR* INFOLCLASTSEQROW®LASTSEQUENCEID3 02485000 T 

IF VOJDTCR=0 THEN VOINTCR?iSMKABSCVOIDTPLACE) ELSE 02485500 T 

TF COMPARE CMKABSCVOIDRANGE) eVOIDTCRI#4 THEN GO TO EXITS 02486000 T 

MOVEC1 » VOTDRANGE» VOIDTPLACE)3 02487000 T 


001928013123 
0019043280 
0019%0133!%2 
00192013430 
001920135%2 
0019013523 
0019201361 
0019:0137%2 
ae Ee ake ak 2i1 
00211000030 
0021!0000:0 
00213000031 
002120001433 
00214000231 
0021:0002!1 
0021:0003%2 
0021%0004:0 
00213000532 
0024:0007%2 
0021000712 
002120010%1 
002130014182 
0021%'0044:0 
00214004480 
00219001733. 
0021%!0002t0 
00218 0022N4 
NEXT SEG 19 
00198013932 
0019%0139%3 
00193013933. 
00192014080 
00193014031 
001494014533 
00193014732 
00149:014712 
00193014713 
001920151%2 
00198015133 
00193015532 
00192045533 
001980159%2 
00191015983 
0019%0163%2 
0019016333 
00193016480 
0019%0;64%4 
001970168!0 
00198016831 
0019:0172%0 
0019:017231 
00192017382 . 
00192017420 
00193017431 
0019:0177%2 
00192018010 
001930185323 
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Ch 


'S 
| rad nee ee 
| Cr 
5 
O 
| (oe 
ce 
a 
I qe 
“O 
ie 
So 
s 
O 
{S 
‘) 
Vv 
& 
i) a 
Q- ae 
One Oe a 
(ae) - EO yuk 
ee : 
0 we I Se es 
Mn 
| en Y “iy ‘ res oe 
! aE Vg 
oY ee 
O BE ty 
» aye ad ¥ ART 
q? e 
A fs 


GO EXIT: 
END} 
SWITCHTTCVOIDTBIT)3 


IF @ = "ScHeck"™ THEN 
RFGIN SWITCHITCCHFECKRIT)s GO AGAIN ENn3 
TF Q = "SLIMTT* THEN 
BFEatN 
SKAN3 
TF RESULT#3 THEN ¥ SHOULD BE NUMBER,- 
BEGIN FLAG(600)% GO AGAIN END$ 
ERRMAXs =ConVcACCUME) Je o*ACCUME13,012961)3 
Go SKANAGAIN? 
END; 
IF 9 = "SPUNCH" THEN 
REGIN SWITCHITCPUNCHRAIT)$ GO AGAIN; END; 
IF 9 = "SPURGE" THEN 
BEGIN SWITCHITCPURGERIT)$ GO AGAINS ENDS 
IF @ = “"SLISTA" THEN 
RFGIN 
SWITCHITCLISTABIT)3 
GO AGAINS 
END? 
IF 0 = "SSTUFF” THEN 
BEGIN SWITCHITCSTUFFRIT)% GO AGAIN: ENDS 
GO WHATISIT$ 
LENGTH6?: 
If @ = "6OSFOFRY THEN 
BEGIN SWITCHITCSEQERRB1T)3 GO AGAIN END3 
IF Qo = "6STNGL" THEN 
BFGIN SWITCHITCSINGLBITI# GO AGAIN END3 
IF O = "6SEQXE® THEN 
BEGIN 
SEQXEQTOG!=sXMODE#> AnD XMODE# 4 OR SEQXEQTOGI4%NEVER RESET, 
IF RBUTLDLINEs C4534) THEN BUILOLINE: =TRUES 
GQ SKANAGAIN: 
END3 
IF a = "6DERUG" THEN 
RFGIN 
SWITCHITCNERUGBIT)$ 
IF DEBUGTOG THEN 
If WOPLOJ=0 THEN 
REGIN 
Q PYLL WOPL4] WITH 
"Litcts"™ , 
& HOoPnc’»"prscts ry 
fis "NOP "» 125 "PRT "s 13% "Nel ", 16% "ADD "s 18% "PRL ™, 194 "LNG "e 
215 "Gr "s 225 "BRC "y 2he "INX ", 35% "LOR "s 375 "GTR "s 38, "BFC ‘Te 
39> "RIN "s 40s "COC "» 485 "SUB "» 64% "MUL "s 67 "LND "s 68% "STD "> 
69 "NrQ "s 71ye "XTT “e 725 "MKS "128% "HIV M1305 "COM "51315 "LaV ™, 
132» "SND "e1330 "XH "s134s CHS ,1679 "RTS 2166s “coc %,260, "Lon ", 
261» "HP ",O7B» "Lac "p294s"LF¢ ",32090"7P4 ", 384» "IDV ",5 4328 "1SD tt, 
533-5 "Led "5534 “BAW "+5485 "ISN ",5498 "LSS 550% "BFW 5581, "FOL "s 
582» "SSP "2790+ "LRU "sB806» "LEU ,8969 "ROV ts 
10030e"Scy tet 004e"SAN ",4079e"SCS tM, 
76 O10 Tb DIG F7 =«DIA 


02488000 
02489000 
02490000 
02493000 
02494000 
02495000 
02496000 
02497000 
02498000 
02499000 
02500000 
02501000 
02502000 
02503000 
02504000 
02505000 
92506000 
02507000 
02508000 
02509000 
02510000 
02511000 
02513000 
02514000 
02515000 
02516000 
02517000 
02518000 
02519000 
02520000 
02521000 
02522000 
02523000 
02524000 
02575000 
02526000 
02527000 
02528000 
02529000 
02530000 
02531000 
02533000 
02534000 
02535000 
02536000 
02537000 


START OF SFGMENT 


02538000 
02539000 
02540000 
02541000 
02542000 
02543000 
02544000 
02545000 
02546000 
02547000 
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0049:018681 
00193018732 
00198018732 
00193018630 
00198018634 
00193018834 
00198018932 
00193019230 
00193019281 
00149%0493%2 
0019:049732 
00149%0497383 
001930201 %2 
00193020480 
001990204: 1 
00192020431 
00192020533 
0019:0209%2 
00198020933 
00191021332 
00198021333 
0019:0244:30 
00198021532 
00192021782 
0019:021732 
0019%024733 
00198022132 
00197022123 
00193022220 
0019:022231 


00195022610 . 


00192022631 
00194023030 
00492003084 
0019:0231%2 
0019740234!0 
00193023630 
0019:0238:0 
00193023830 
00194023831 
0019:0239:2 
00193024030 
00198024034 
00193024230 
00192024231 
00192024332 


err re is: 22 


001498024434 
00193024424 
00193024431 
001980274424 
00193024431 
00198024431 
0019:0204434 
0019302443 1. 
001980294431 
00198024434 


C} 


C} 
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10239102391023510739102304023%40235 102391093 %102351023510239109394023» 
1923*1023+402391023%102391023" 102391023910239102391023» 10233 
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2 CHARACTER MODE MNEMONICS 


22 1S 
FILL COPC¥] WITH 
or” ".0%0> 


START OF SEGMENT 


Or"EXe » 2e"BSH ts 3e"BSS ) Ae"RDA “se So"TRWN Me6e"™SED “» Zo"TOA My 
L2e"SHoa Mol3e"SSA "914s "SEN "s15e"SRH “NetBo"SFS “"e20e"TEQ "e215 "TNE Ts 
22e"TEG Me23e"TGR Me24e"SRS MePSe"SES “e2be"TEL ,29e"TLS Ms 30,"TAN oe 
31e"BIT “s32e"INC Me 33e"STC He 34e"SEC “se 35e"CRE “se 36e"INC "e37e"JEG Me 
38a "ING es 39" JEW Me GOe "ROA Bedlo"ENS “sh42e"BNS MrpA43e"RSA Medd "Son Me 
45 e"IRo "s4be"TSA Msd47e"JRV MeGBe"CEQ “A4Oe"CNE Me SO0e"CEG s51,"CGR Me 

52e"BIT "sS53e"BIR e54e"O0CV Me S5e"IT CV “eSGe"CEL “eS7e"ChLS “"pSBetE Su tt, 
59e"FAn *e60e"™TRP “s6le"TRN Me 62e"TRZ “s63e"TRS “ebb s Or bbe Or 64,05 64r0e 
642026420264 90564,03 
23 1S 
ENDS poo 


END} 
IF 9 = "6FORMA" THEN 
BFGIN SWITCHITCFORMATBIT)$ GO AGAIN: END 


GO WHATISIT; 
LENGTH73 
% IF Q@ = "7INCLU" THEN 
% BEGIN DOLLARCARDt=STARTINCLUDINGS Go EXIT$ END3 
% IF g = "7INCLN" THEN 
% BEGIN SWITCHITCNEWINCLBIT): GO AGAIN; END; 
LENGTH8: % NO OPTIONS OF THIS LENGTH ARE CURRENTLY IMPLEMENTED, 
LENGTH: 
If Q = "SINTRI" THEN 
BEGIN . 
INTOG?=XMOnE#2 ANN XMOpE# 4 OR INTOGS % NEVER RESET, 
GO SKANAGATINS 
END? 
WHATISIT# 
IF RESULT=3 THEN 
BEGIN 


BASENUM:=ConVcACCUMeE4]*0*ACCUMEF1).£612%6])3 
TOTALNO?="403 
NEWBASEt=TRUES 
GO SKANAGAIN 
END; 
IF RESULT=? THFN 
BEGIN 
IF @ = 140000" THEN 
BEGIN 
SKAN3 
IF RESULT=3 THEN 
ADDVALUEs ®CONVCACCUME1]*°O*#ACCUM(13.01226)) 
FLSE FLAGC600)3 % NUMBER EXPECTED, 
END} 
GO sSKANAGAIN: 
eNns 
COMMENT prn NOT ReeOGNyZe OPTIONS 
IF RESULT#1 THEN % NOT AN IDENT FIER, 
BEGIN FLAG¢601)% GO SKANAGAIN END} 
SWITCHITCUSEROPINX)$ % USEROPINX MEANS A USER=DEFINED OPTION, 


92548000 T 


02549000 T 0019024431 
128 LONG» NEXT SEG 19 
02550000 T 0019:024431 
02551000 T 00193024532 
FOR ROK RRR KK 
02552000 T 0019%0246:0 
02553000 T 001930246:0 
02554000 T 0019:0246:0 
02555000 T 00193024630 
02556000 T 00193024630 
02557000 T 0019:0246:0 
02558000 T 001930246:0 
02559000 FTF 00191024680 
02560000 T 0019:0246:0 
128 LONGe NEXT SEG 19 
02563000 T 00192024610 
02564000 T 00191024630 
02565000 T 00193024820 
02566000 T 001930248630 
02567000 T 00192024631 
02568000 T 0019!0252:0 
02569000 T 00192025234 
92570000 T 0019#0253!2 
02571000 T 0019!0253%2 
02572000 T 0019:0253:2 
02573000 T 00193025332 
02574000 T 0019:0253:2 
02575000 T 0019:0253%2 
02576000 fT 00191025382 
02576500 T 0019%0253:3 
02577000 T 00193025430 
02577250 T 00198095834 
02577500 T 0041920260%0 
902578000 T 0019!0260:%0 
02579000 T 0019!0260:0 
02580000 T 0019202960! 
02581000 T 00192026132 
02582000 T 0019:026431 
02583000 T 0019:0265:3 
02584000 T 00193026610 
02585000 T 0019:026631 
02586000 T 00192026681 
02587000 T 00191026733 
02588000 T 00191026810 
02589000. T 0019026834 
02590000 T 0019:0269%2 
02591000 T 00193027332 
02592000 T 0019:0273!3 
02593000 T 0019:0276:0 
02594000 T 00193027933 
02595000 tT 00193027933 
02596000 T 0019:30280:0 
02597000 T 00192028030 
02598000 T 00193028030 
02599000 T 0019:0281:22 
02600000 T 00192098234 


00199004424 


23 
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sore Business 


OQ 


Cs 


O 
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-- COMMENT 


GO AGAIN? 
XyT: 


LISTER:=DEBUGTOG OR LISTOG OR LISTATOG} 

MOVE CLO*DEFINEARRAYCOJseACCUMCO})3 & RESTORE INFORMATION FOR 

COUNT: =SCOUNTs RESULTi=SRESULTS3 % "TABLE" TO RESUME SCAN. 
RESTORFSEQNUMCLCR® INFOLLASTSEQROW*LASTSEQUENCEJ)3 % FOR VOID TESTS 
DOLLARTOGS=FALSE3 

END DOLLARCARD; 


TABLE 1S THE ROUTINE THAT MOST CODE IN THE COMPILER 
USES WHEN IT JS DESTRED TO SCAN ANOTHER LOGICAL QUANTITY. 
THE RESU),T RETURNED 3S THE C),ASS OF THE ITEM DESTRED, 
TAB)E MAITNTAINS THE VARIABLES I AND nXTELBT AND THE ARRAY 
ELBATs ELBAT AND I ARE PRINCIPAL VARIABLES USED For 
COMUNICATION BETWEEN TABLE AND THE OUTSIDE WORLD. NXTELBT 
1S ALMOST EXCLUSIVELY USFD BY TABLE» ALTHOUGH AN OCCASION= 
ab OTHER USF IS MADF IN ORDER TO FORGET THAT SOMETHING Was 
sCANNE De CSFE» FOR EXaMPLEs COMPOUNnTAIL)s FOR FURTHER 
ePNFRAL ntScuSSION Sree THE NFCLARATION OF THESE VARIABLES, 
THE PARAMETER P 1S THE ACTUAL INDEX OF THE QUANTITY 
NESTRED ¢USUALLY Teter, OR yo), 
THE GENERAI, PLAN OF TABLE 1S THIS! 
1) IF P « NXTELBAT Go ON TO IT1), 
11) PROCESS ONE QUANTITY, 
A) SCAN, 
B) TEST FOR IDENTIFIER» NUMBER®e OR SPECIAL CHARACTER, 
1) IDENTIFIER = LOnKUP IN DIRECTORY AND PROCESS 
IN SPECIAL MANNER IF COMMENT OR DEFINED ID, 
2) NUMBER @ PROCESS INTEGER PARTs FRACTIONAL PART» 
AND EXPONENT PART, 
_ 3) TEST IF SPECIAL CHARACTER REQUIRES SPECIAL 
PROCESSING = OTHERWISE GET ELBAT WORD FROM 
SPECIAlg 
C) LOAD ELBAT AND INCREMENT NXTELBT, 
ND) <F ELBAT IS FULL ADJUST ELBAT» NXTELBTs fs» AND P, 
E) GO BACK TO 1), 
III) RETURN WITH CLASS oF ELBAT(CP], 
FURTHER DETAILS ARE GIVEN IN BODY OF TABLEs 


H 
INTEGER PROCEDURE TABLECP)s; VaLUE Ps INTEGER P3 

BEGIN 

LARFL PERCENTsSPFCIALCHAR, COMPLETE sCOLUNsnOTsATSIGN» QUOTE. 


STRNGXT»MOVETT»ARGH,FINISHNUMBER, 


SCANAGAIN, FPART,SEPART, IPARTs DENT, ROSE »COMPOST s DOLLAR» RIPAREN, 


CROSSHATCH»s NUMBEREND? 
SWITCH SPECTALSWITCHS=PERCENTsDnLLAR*DOTPATSIGN®COLON® QUOTE» 
RTPARENsCROSSHATCH} 
SWITCH RESULTSWITCHI=IDENT*SPECTALCHAR® IPARTS 
WHILE p 2 NXTELBT 
DO BEGIN 
SCANAGAINS 
COUNTS=RESULTSSACCUME1]2:503 SCANNERS 
GO ReSuULTSWITCHERFSULTI; 
ARGH? 
Qt=ACCUNE1]3 FLAGC141)3 GO SCANAGAINS 
SPECIALCHAR: 


02601000 
02602000 
02602500 
02602600 
02602700 
02602800 
02603000 
02604000 
296 LONG 

02605000 
02606000 
02607000 
02608000 
02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02615000 
02646000 
02617000 
02618000 
02619000 
02620000 
02621000 
02622000 
02623000 
02624000 
02625000 
02626000 
02627000 
02628000 
02629000 
02630000 
02631000 
02632000 
02633000 
02634000 
02635000 
02636000 
02637000 
START OF SFGMENT 

02638000 

02639000 

02640000 

02641000 

02642000 

02643000 

02644000 

02645000 

02646000 

02647000 

02648000 

02649000 

02650000 

02651000 
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0019°0283%3 
0019%028420 
00193028430 


0019%0287%2.-..- - 


0019:028982 
00193029034 
0019402923 1 
0019029332 
NEXT SEG 

000320242:0 
0003:024230 
0003'0242%0 


0003%0242!0.. 


00034024230 
0003:0242:0 
0003:0242:0 
00031024230 
00033024210 
0003:024220 
00031024220 
0003%0242!0 
00032024210 
00032024220 
0003'0242:0 
0003°024270 
00033024270 
00034024270 
0003:0242%0 
00032024230 
0003:0242:0 
00033024230 
0003:0242:0 
0003:0242:0 
000332024220 
0003!'0242:0 
0003%0242!0 
00033024230 
0003:0242:0 
0003:0242:0 
00033024230 
00033024230 
0003:024230 


3 


Pee rere. 24 


002440000!0 
0024:0000%0 


0024700000. 


00247000020 
0024:0002?1 
0024:0007%2 
0024:001231 
002410013%2 


00243001480 


0024:0015i2 
002430014733 
00243001933 
00243002070 
00243002230 


©) 


(oe ey: GE) 


Oo -® 
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GT1t=ACCUMr11,£018%6] = 23 
ENDTOG:=GT;y = 57 AND ENDTOG? 


COMMENT OBTAIN ACTUAL CHARACTER FROM ACCUM; 
Ld .  TrsSpPECIALLCGT1&GT104984133))3 
COMMENT NOTICE COMPRESSION TECHNIQUE USED TO SHORTEN TABLE OF 
ELBAT WORDS FOR SPECIAL CHARACTERS; 
tr GT13:=T.INCR = O THEN GO COMPLETES 
GO SPECIALSWITCHEGT173 
COMMENT yNCR Freip OF SPECTAL CHARACTER 1S NON*ZERO FOR SPECIAL 
CHARACTERS REQUIRING SPECIAL HANDLING, INCR 1S SWITCHED 
ON TO OBTAIN DISCRIMINATION? 
COLON? RESULT:=73 SCANNER? COMMENT ELIMINATE BLANKS = CHECKING 
FOR 3:3 IN PLACE OF «¢ 3 
TF EXAMIN (NCR) = "=" THEN 
REGIN RESULT:=03 SCANNERS Tt=SPECIALL13] END; 
RESULT:=2: GO COMPLETE: 
DOT: 
IF EXAMINCNCR)>9 OR FNDTOG THEN GO COMPLETE; 
NHI :=NLOs=03 
C203 GO FPARTS$ 
ATSIGN: 
RESULT!:=03 SCANNER} % SCAN PAST "ee", 
1F COUNT>17 THEN GO ARGH# &% 16 CHARS, + "Ot, 
IF OCTIZECACCUME 13 »Cy17"COUNTeCOUNT#=4) THEN 
BEGIN Q:=ACCUME41)? FLAGC521)3 GO SCANAGAIN END} 
Go NUMBEREND; 
COMMENT DOT AND ATSIGN ENTER NUMBER CONVERSION AT CORRECT SPOT? 
QUOTE: 
COUNTS =03 
— THRTF STREAMTOG THEN 63 
ELSe fF REALCSTREAMT9G)>1 THEN 8 FLSE 73 
Do REGIN 
ReSULT?=53 SCANNER} 
TF COUNT>T THEN 
BEGIN Q@#=sACCUME173 FLAG(¢520)3 GO SCANAGAIN. END} 
END UNTIL EXAMINCNCR) = "hg 
Q@tsACCUMG 4 ]3 RESULTPL53 SCANNER? COUNT? =COUNT=43 
IF COUNT<O THEN COUNT?=COUNT+643 
ACCUME1J3%=Q3 RESULTI=43 
STRNGXT: Tt=C?=03 
IF COUNT < 8 THEN 
MOVEITS 
MOVECHARACTERSCCOUNTs ACCUME LI» 35C+87COUNT)3 
TeChLASS:=STRNGCON; 
GO COMPLETE3 
COMMENT CROSSHATCH HANDLES TWO SITUATIONS: 
THE CROSSHATCH AT END OF DEFINE DECLARATIONS AND 
THE CROSSHATCH AT END oF A;,PHA REPRESENTING DEFINED IDS, 
THE TWo CASFS ARE PROCESSED DIFFERENTLY« THE FIRST CASE 
MFRELY PLACES THE CROSSHATCH IN ELBAT. THE SECOND CASE 
CAUSFS AN EXIT FROM SCANNING THE ALPHA FOR THE DEFINED [De 
= FOR aA FULL DISCUSSION SEE nEFINEGEN; 
CROSSHATCH! 


TF DEF INECTR#O THEN gO COMPLETES 
PUTSFONOCKTI» LCR); 
TURNONSTOPLIGHTCO,LCRI3 

1F DEFINETNDEX = O THEN GO ARGH? 


02652000 
02653000 
02654000 
02655000 
92656000 
02657000 
02658000 
02659000 
02660000 
02661000 
02662000 
02643000 
02664000 
02665000 
02666000 
02667000 
02668000 
02680000 
02681000 
02682000 
02683000 
02684000 
02685000 
02686000 
02686500 
026A87000 
92689000 
02690000 
02691000 
02692000 
02692500 
02693000 
02694000 
02695000 
02696000 
02697000 
02698000 
02699000 
02700000 
02701000 
02703000 
02704000 
02705000 
02705100 
02705200 
02707000 
02708000 
02709000 
02710000 
02711000 
02712000 
02713000 
02714000 
02715000 
02716000 
027147000 
02718000 
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0024%:009332 
0024!0095!2 
00241002681 
0024:0026?1 
0024:002831 
0024:002834 
0024:002821 
0024!:00313%2 
00243003332 
0024:0033%2 
0024%0033!2 
00241003332 
0024003430 
00243003430 
0024200360 
00243003831 
0024%004020 
0024:0040:0 
00242004322 
0024:0044:0 
00243004533 


0024:0046:0.. 


00243004732 
0024300484 
0026!0051%3 
00243005421 
0024:0055:2 
0024:0055:2 
00241005532 
00243005533 
00241005630 
0024:0060:0 
002470060:0 
0024:'006432 
002430062:0 
00294 006444 
0024%0067%2 
00241007031 
0024:0073%2 
00243007532 
0024007630 
0024:0077%2 
0024:0078:0 
0024:0080%1 
0024:008250 
00241008231 
00242008284 
002480082914 
00241008211 
00243008221 
0024:0082:1 
0024300823 4 
0024:0082t1 
002430083:2 
00241008430. 
0024:0085i2 
000440086:0 


Cr. Ho te Co C) 


() 


CO) 


O © 


C5 


DOLLAR: 
PERCENT; 


COMMENT 


LCORt=¢GTz teDEFINEARRAY(DEFTNEINOEX=41) DIV 9601443 
NCRi=GT1 MOD 2621443 
GT2:=0RCTy=DEF INEARRAYCDEF INE INDEX: SDEFINEINDEX"3]9£33:18:15]3 
LASTUSED3#T,(33315)3 
For GTi:=4{ STEP 1 UNTIL GT? DO 
REGIN 
STACKHE ADE (CTs =TaKECLASTINFOSt y 74012236] MON 125]: 
TAKE CLASTINFO) LINKS 
LASTINFOL=C(NEXTINFOSSLASTINFO)*T,.PURPTS 
END3 
GO SCANAGAINS 
COMMENT THIS CODE HANDLES CONTROL CARDS? 
DOLLARCARD; 
TF NCR # FCR THEN READACARD3 
GO SCANAGAIN; 
MOST PERCENT SIGNS ACTING aS END OF CARD SENTINELS GET TO 
PeRCENre PERCENT READS THE NEXT CARD AND STARTS OVER. A 
SIME EFFECT IS THAT abl CHARACTERS ON A CARD ARE IGNOREN 
AFTFR A FREE PERCENT STGN CONE NOT [MBEDDED IN A STRING OR 


COMMENT )3 


COMMENT 
RTPAREN? 


PART? 


FR FQ BL BW BL BR SS BC 352 BQ 42 3 MQ 3A BL BO BE 9A BE BO 


3e 


MrGHT BE FUNNY COMMA = HANnLE HERE? 
RESULT#s7! SCANNER? 
TF EXAMINe NCR) = wee THEN 
BEGIN 
RESULT?=03 SCANNER; 
Do BEGIN 
RESULT#=5% SCANNER 
FND UNTIL FXAMINCNCR) = titty 
RESULTS=0$ SCANNER 
RESULTS=73 SCANNER? 
IF EXaMINCNCR) # "C" THEN GO ARGH? 
REFSULT2:=03 SCANNERS Q:=ACCUMELI: 
TS=SPECTALEL 24) 
END? 
RESULT2=23 GO COMPLETES 
TCOUNT?:=03 CS=CONVERTS 
RESULT:=73 SCANNERS & DEBLANK, 
IF DEFINECTR=0 THEN 
IF (C=3 oR C=4) AND EXAMINONCRO=E"Y" THEN 40CTAL OR HEX STRING, 
BEGIN INTEGER S123 
RESULT?:=53 SCANNERS 4 SKIP QUOTE. 
COUNT?=03 
no REGIN 
RESULT#=53 SCANNERS 
1F COUNT > SyZt=48 DIV C THEN & > 4 WORD LONG, 
BEGIN ERR¢(520)% GO SCANAGAIN END: 
END UNTIL EXAMINCNCRI Steg 
Q:=ACCUME4I]$ RESULTt=53 SCANNER? COUNT: =COUNT#=43 
IF C=3 THEN % OCTAL STRINGs 
IF oCTIZECACCUMCA] > ACCUME 4) 51 6"COUNT*® COUNT) THEN 
FLAG(C521) 4 NON OCTAL CHARACTER IN STRING, 
FLSE ELSE IF HEXIZECACCUMDE1]*ACCUML4],12"=COUNT*COUNT) THEN 
FILAGC524)3 % NON CHARACTER JIN HEX STRINGe 
IF COUNT < SyZ THEN 
BEGIN 
C#sACCUMC 41% GO FINTSHNUMBER? 
END? 


02719000 
02720000 
02721000 
02722000 
02723000 
02723500 
02724000 
02725000 
02726000 
027297000 
02728000 
02799000 
02730000 
02731000 
02737000 
02738000 
02739000 
02740000 
02741000 
02742000 
02743000 
02744000 
02745000 
02746000 
02747000 
02748000 
02749000 
02750000 
02751000 
02752000 
02753000 
02754000 
02755000 
02756000 
02757000 
02758000 
02759000 
02760000 
02761000 
02762000 
02763000 
02764000 
02765000 
02766000 
02767000 
02768000 
02749000 
02770000 


- 02771000 


02772000 
02773000 
02774000 
02775000 
02776000 
02777000 
02778000 
02779000 
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0024:008723 
00242009020 
00243009122 
00241009430 
00243009533 
00242009830 
00243009830 
00243010182 
00242010231 
00248010572 
00243010732 
0024:010733 
00243010830 
00242010821 
0024:011081 
00243011182 
0024:011182 
002430111382 
00247011132 
00248014182 
002480414182 
00243044182 
0024%0443%2 
002430115%2 
00244011583 
00241041644 
00241011742 
00241011733 
0024:012031 
00241012123 


002430123%2.. 


0024:0125%2 
0024:0427:3 
0024%0427%3 
00204:01429824 
002430129383 
00242013183 
00243013183 
00242013133 
00243013133 
00243013183 
0024:013133 
00243013133 
00241013133 
0024%0431%3 
00242013183 
0024#013143 
00243013133 
00242013183 
00248013133 
00248013183 
00243013133 
0024:013183 
0024:0131323 
00242013183 
00243013183 
002420131323 
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% TL, INCR#=COUNTi=gs T.CLASS#=STRING? 
% MoVECHARACTERS( Re ACCUNL 4] *OsACCUME1I]93)3 
% Go CoMPLETE; 
by ad : 7 % ENN Octal OR HEX sTRING:3 


te nPTOG THEN 
BEGIN NHI:=THI3 NLO&t=TLOs END; 
TF FEXAMINCNCRIE",." THEN 
BFGIN 
ReSuULT?=sO3 SCANNERS 
ees Are, Ci=1,0xX C3 
FPART! TCOUNT? =COUNTS 
TF EXAMINCNCR)S9 THEN 
BEGIN 
RESULT&=03 SCANNER 
IF DPTOG THEN 
BEGIN 
DOUBLE CCONVERT»TLOsTENECCCOUNT*TCOUNTIMOD 1t2]>s 
Oe/st=eTHIsTLO)3 
FOR T:#12 STEP 12 UNTIL COUNT = TCOUNT po 
NOUBLECTHT + TLOsTENC 12) 909/e%ee THI + TLOD3 
DOUBLE CTHI + TLOeNHI eNLOo te t=eNHYe»NLO)3 
Ce=NH] 
END 
ELSE Ce=TENLTCOUNT=COUNTIxCONVERT+C3 
esky END 
END: 
RESULT:=73 SCANNER; 
IF FXAMINCNCRD="O" THEN 
RFGIN 
ReSuLT?=03 SeaANNER3 
TCOUNT? =cCOUNT; 
C+=0x1,03 
RESULT#=73 SCANNER} 
IF TtsEXAMIN¢NCRI>9 THEN 
REGIN 
RESULT%=s03 SCANNERS 
TCOUNT!=COUNTS 
END$ 
RESULT!=03 SCANNERS 
Ar=aAccUME 143 
IF GT1tSTs=C@F TS"""THEN “CONVERT ELSE CONVERT)<"46 OR 
T>69 THEN FLAGC269) 
is Set . : FLSE BEGIN 
TI=TENCTI; 
IF ABSCORCT4 Dt 386 IRCLLF 2211+ ORT CAD ZF 6 IRTL1I281) 
Houck oe at aE 2 ; + 12) 763 THEN FLAGC269) 
ELSE IF DpPTOG THEN 
IF GT14<0 THEN 
ae ret hae eh a BEGIN 
GT1:="GT13 
DOURLECNHI »NLO*eTENEGTL MOD 12]°09/%:=»NHIeNLODS 
FOR GT2:=12 STEP 12 UNTIL GT1 nO 
NOURLF CNH] eNLO»TENDL12) 9202/2: =eNHIeNLODS 
ENn 
FLSE BEGIN 
DOUBLE CNHI eNLOsTENEGTL MOD 12],0exst=sNHIeNLOD3 
FOR q@T2s=12 STEP 12 UNTIL GT1 pO 


FPART: 


02780000 
02781000 
02782000 
02783000 
02784000 
02785000 
02786000 
02787000 
02788000 
02789000 
02790000 
02791000 
02792000 
02793000 
02794000 
02795000 
02796000 
02797000 
02798000 
02799000 
02800000 
02801000 
02802000 
02803000 
02804000 
02805000 
02806000 
02807000 
02808000 
02809000 
02810000 
02811000 
02812000 
02813000 
02815000 
02816000 
02817000 
02818000 
02820000 
02822000 
02823000 
02824000 
02825000 
02826000 
02827000 
02828000 
02829000 
02830000 
02831000 
02832000 
02833000 
92834000 
02835000 
02836000 
02837000 
02838000 
02839000 
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00248013133 
002420143143 
00243013133 
00243013133 
00243013113 
0024:0132:0 
002410134:0 
0024:0143583 
0024:01362%0 
0024:0143733 
00243013634 
00242013983 
0024%0441%3 
00245044210 
0024201 43t2 
00242014323 
00247014430 
0024301447382 


00242014831 . 


0024:0153%2 
002430158!0 
00242046030 
002410460380 
002470161%2 
00243016434 
00243016431 
00243016431 
00243016630 
00243016733 
0024:0168t0 
00243016933 
002480147071 
00243017230 
0024:047332 
00243047583 
002941017630 
0024:0177%2 
0024:017880 
0024:0178:0 


002471017982. 


0024:0180#0 
00243018532 
00243018631 
00242018922 
00243019084 
00941019582 
0024%0197%2 
00241019831 
002430199383 
0024;30200:0 
00243020182 
00243020582 
00243020620 
00243021133 


00243021133. 


0024:0212:0 
0024702453 
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oe 
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onus NuTeNLOsTENC 12] ,OexsteeNHT»NLOD3 
END 
FLSE ct=cxT3 
FNp; 
ENn; 


NUMBFREND? 


COMMENT 


IDENT? 
ROSF? 


Qs=AccuML1]3 ReESULT&=33 


FINTSHNUMBFRS 


:=03 

IF C.01°373=0 THEN 

BEGIN T,CLASS:=LITNO 3 T,ADDRESS3=C END 
EILSE T,CLASS$sNONLITNO 3 
GO COMPLETE? 
THE CODE BETWEEN IDENT AND ComPOST DOES A LOOKUP IN INFO. 
IF QUANTITY IS NOT FoUND THE ELBAT WorD EXPECTS To BE 
ZFRO« THE SCRAMBLE FOR APPROPRIATE STACK IS FIRST THING 
TO BE DONE. THEN THE LOOP BETWEEN COMPOST AND 
ROSE IS ENTEREDe THE LAST THING DONE FOR ANY 
IDENTIFIER WHICH IS FOUND IS TO STUFF THE LOCATION 
OF THE FLBATWORD IN INFO INTO THE LINK FIELD, THIS 
ALLOWS REFERENCE BACK TO INFO FOR ADDITIONAL DATA» 
SHOULD THIS BE REQUIRED. ; 
TIeSTACKHFADESCRAMt=¢Q:s3ACCUMELIIMOD 12573 
GTLt=T,LINKR$ 
TE CGTArsT LINKc+qTis O THEN 

BEGIN Tt=0% ¢O COMPLETE ENDS} 


re T = JNFOrGT1s GT2) THEN BEGIN 


COMPOST? 


COMMENT 


COMMENT 


Tis 03 60 TO COMPLETr ENn3 
Tt=tNrOcaTi»Ggi2ds 
IF INFOLGT1LeGT2+17]&8Orist%14) # @ THEN GO ROSF3 
1F COUNT $ 5 THEN GO COMPOST 35 


4101-7 
2101" 


TF NOT FQUALCCOUNT#=5,ACCUMrF2],INFOLGT1.GT2+2]) THEN GO ROSF3 


TraTRGOTIC35SF43251&GT2640%4058)3 
1F GTt #1 AND NOT MACROID THEN 2% NOT RESERVED WORD 


%110= 


XREFITCT.LINK»sCARDNUMBER,NORMALREF)$ % BUILD XREF ENTRY 31108 


CHECK HERE FOR COMMENTS AND DEFINED IDS3 
IF NOT ENDTOG THEN 
BEGIN 
IF Glyt=sT,CLASS = COMMENTY THEN 
BEGIN 
WHILE EXAMINCNCR) # "3" DO 
BEGIN RESULT!=6% COUNT!=03 SCANNER END? 
RESULT%?=03SCANNER?GO SCANAGAIN 
END 
END: 
IF STOPDEFINE THEN GO COMPLETES 
IF GTL # NEFINEDID THEN GO COMPLETE? 
SFTUP FOR nEFINED JDS = SEF PEFINEGEN FOR MORE DETAILS? 


TF T,ADDRESS#0 THEN TteFIXnEFINEINFOCT)3 


TF DEF INEINDEX = 24 THEN 

BEGIN FLAGC13993G0 ARGH END ; 
NEFF INEARRAYI DEFINE TNDF XI] S=LASTUSED&T.ADDRESS 71833311573 
LASTUSFN xa 1T¢T 3 
DFFTNEARRAY(DEFINEINDEX42)25262144xLCR+NCR3 
LCR t=¢NCRt=MKABS(DEF INEARRAY(DEF INEINDEX41 12) 443 
PUTSEQNOCGT4sLCRI3 
TURNONSTOPLIGHTC"Z"sj'Cp)s DEFINEINDEX:SDEFINEINDEX+4+33 


02840000 
02841000 
02842000 
02843000 
02844000 
02845000 
02846000 
02847000 
02848000 
02849000 
02850000 
02851000 
02852000 
02853000 
02854000 
02855000 
02859000 
02860000 
02861000 
02862000 
02863000 
02864000 
02865000 
02875000 
02876000 
02877000 
02877010 
02877020 
02878000 
02879000 
02880000 
02881000 
02882000 
02882100 
02882200 
02883000 
02884000 
02885000 
02886000 
02887000 
02888000 
02889000 
02890000 
02891000 
02892000 
02893000 
02894000 
02895000 
02896000 
02898000 
02899000 
02900000 
02901000 
02902000 
02903000 
02904000 
02905000 
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0024:024732 
00243022231 
00243022231 
00243022430 
0024:0224:0 
0024:022430 
0024:022532 
00243022621 
0024:0227:2 
00241029733 
00243022933 
0024%0933!3 
00241023523 
00243023630 
0024:0236:!0 
0024:023680 
00243023610 
00243023630 
0024:0236:0 
00243023630 
00241023680 
00241023630 
002430236:!0 
002430239383 
0024:0241:%2 
00242024333 
0024024512 
00241024723 
0024:024B%1 
00243025031 
00243025430 
0024:025533 
0024:0260:0 


0024:026231.. 


00243026430 
009420296733 
0024:0267:3 
00244026830 
00243026831 
00241027084 
00248027192 
0024:027332 
00243027533 
0024:027733 
00248027733 
00248027783 
00243027831 
00243027913 
00242007933 
0024:0282%4 
00243028333 


0024 3028532. 


0024:0287:3 
000430088314 
00245029133 
00942029589 
00243029630 


O 


Se GO PERCENT; 
COMPLETE: 
ELBATUENXTELBTI:=T; 
_.. TF NOT DEFINING THEN 
IF TeclaASS = BFGINV THEN 
REGINSTACKCBSPOINTs =RSPOINTH+LI2=CARDNUMBER ELSE 


2108 
4108" 
2108 
%108= 
%108" 
2108 


4108 


IF TecLaASS = ENDV THEN 
BEGIN 
IF LISTER THEN JF BEND THEN BEGINPRINTS 
RSPOINTS=RSPOINT = RFALCBSPOINT > 0)3 % PREVENT INVALID INDEX 
ENn$ 
STOPDEFINE 3 =FALSE$ COMMENT ALLOW DFFINES AGAINS 
TE NXTPLATESNXTELRT+1 > 74 THEN 
IF NOT MacROTD THEN 
BEGIN 
COMMENT fFLRAT IS FULL: aAnJUST IT3 

MOVECIOSELBATLOSI],ELRATIS 
Ts=2"653 Ps=P"653 NXTrelLpT:=10;3 
END 

END$ 

1F TABLFS=ELBATrFPJ,CLASS = COMMFNTV THEN 
BFGIN 
COMMENT SPECTAL HANOLING OF CONSTANTS FOR SAKE OF FOR STATEMENTS3 

Ct=INForcOs,FLBAT(P),ADDRESS]3 

EL BATE PI] .CLASS: =TABLES sNONI,ITNO 

END; 

STOPDEFINE:=FALSE3 COMMENT ALLOW DEFINE: 
END TABLE 3 


BOOLEAN PROCEDURE BOOLPRIM; FORWARD; 
PROCEDURE BOOLCOMP(B)3 BOOLFAN p3 FORWARDS 
INTFGFR PROCEDURE NEXT3 

BFGIN 

LAREL FXIT3 


INTEGER TS 
DFFINE ERROR = 
SKAN} 
1F ReSuLTs3 THEN FRROR$ & NUMBERS NOT ALLOWED, 
tF ReSults2 THEN % SPeeTAL CHARACTFR, 

BEGIN 


REGIN FflLAG(603)3 GO FXIT END#S 


Te=pe Ge"1,0000" OR Qa"1Z0000" THEN 20 % FAKE OUT BOOLFXP, 


= ELSE CcTtsQO,718261]=2) & Th42241:3));3 


If T=31 OR T=19 OR T=20 THEN BATMAN?=SSPECTALELT] % ¢»),0R 3 


ELSE FLAG(603);5 
GO EXIT 
END SPECIAL CHARACTERS? 
00K FOR BOOLFAN OPERATORS, THEN OPTIONS3 
Tits IF Q@="3NOTOO" THEN NOTOP 
ELSE IF @="3AND00" THEN ANDOP 
ELSE IF @="20R000" THEN OROP 
ELSE IF O="3EQVOO" THEN EQVOP 
ELSE O03 
IF T#0 THEN BATMAN,CLASS3= 


COMMENT 


ELSF 
EXITS 
NEXTS=MYCLASS?=BATMAN.CLASS3 


BATMANt=1 8 BOOTDL2!7) & REALCFINDOPTIONC1))£itils 4% OPTION, 


24 Is 


02906000 
02909000 
02910000 
02910100 
02910200 
02910300 
02910400 
02910500 
02910600 
02910700 
02910800 
02911000 
02912000 
02913000 
02914000 
02915000 
02916000 
02917000 
02918000 
02919000 
02920000 
02921000 
02922000 
02993000 
02924000 
02925000 
02926000 
02927000 


337 LONG 


02955000 
02955500 
02956000 
02956500 
02957000 


START OF SEGMENT 


02957500 
02958000 
02958500 
02959000 
02959500 
02960000 
02960500 
02961000 
02961500 
02962000 
02962500 
02963000 
02963500 
02964000 
02964500 
02965000 
02965500 
02966000 
02966500 
02967000 
02967500 
02968000 


AA AHA HHA HAH FARAH AH HHA KAT A AA TA AAA TA HHO OI III DN DA HH 


00241029830 
0024:0300:0 
00243030030 


0024:0301%2 ... 


00243030133 
00242030333 
00242030680 
002430308380 
00243030821 
0024:0311%2 
00242031234 
00243031231 


00243031333. 


0024:03145%2 
00243031630 
00243031631 
0024:0316%1 
00243031831 
0024:0321233 
00243032133 
00243032230 
0024:0395!%2 
0024%03295%3 
00241039533 
002410329830 
0024%0329%2 
00243033132 
0024:033183 
NEXT SEG 
0003:0242:0 
0003:0242:0 
0003:0242:0 
0003%0242:0 
00031024230 
ORO IO 2 
0025:0000:0 
0025:0000:0 
0025%0000:0 
00253000333 
00252000630 
0025:0007%2 
0025:000723 
0025200100 
0025:001383 
0025:0017%2 
0025:002433 
0025%0022t0 
00253002230 
00253009210 
0025!002333 
00253002573 
00251000733 
0025:002933 
0025:0031%2 
0025:0032!1 
00253004230 
0025:0043!2 


3 
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END NeXT$ 


BOOL.FAN PROCEDURF BOOLFXP; 


BFGIN 
ROOLFAN B$ 


BisBOOLPRyM3 

WHILE MYCLASS2ES8VOP ANN MYCLASSSANDOP DO BOOLCOMP(B)3 
ROOLEXPisa 

END BOOLEXP?3 


Boo).EAN PROCEDURE BOOLPRIM? 
BEGIN 
BooLEAN Be KNOT3 


DEFINE SKIPIT = MYCLASS3#NEXT #3 
IF KNOTSSCNEXT=NOTOP) THEN SKIPIT$ 
IF MYCLASS=LEFTPAREN THEN 


BEGIN 

Br=BOOLEXP3 

IF MycbLASS#RTPAREN THEN FLAGC604)3 
END 


ELSe re MycLASS#R007D THEN FLAGC 601) 


ELSr RE 


=BATMAN«O3 


1F KNOT THEN Bs=NOT Rs SKIPIT3 
ROOLPRyMizp 
FENn BOOLPR M3 


PROCENURE BOOLCOMP(B)s BOOLEAN Bg 


BFGTN 
REAL OPCLASSS 


BOOLEAN T3 

OPCLASSt=mMYCLASS3 

T:=BOOLPRI Ms 

WHILE OPCLASS<MYCLASS DO BOOLCOMPCT)$ 
Rye IF OPCLASS=ANDOP THEN ¢B AND T) 


FLSE IF OPCLASS=OROP THEN (B OR 1) 
ELSE (B FQV T)$ 


END BOOLCOMPS 


b 


COMMENTAP RHA EEE EH HPA HR AAA HARRAH ERA ERAT RRARERRER HARARE RRR ERE EH 


FORWARD NFCLARATIONS 


VHERERHAHHHRERE RARE RH AREER RAHA ERA R ARERR ERA RARRAA REAR ARERR RAMA EEE 


% 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


AFXP3 FORWARD} 
ARITHSEC$ FORWARDS 
SIMPAR THs FORWARDS 
ARYTHCOMP$ FORWARDS 
PRyMaRy$ FORWARDS 


DEFINE RFEXP = AFXP# 
INTEGFR PROcEnNURE FXPRSS3 FORWARDS 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


POLYISHERCEXPECT)$ VALUE FXPECT$ REAL EXPECT’ FORWARD3 
INLINE? FORWARD} 

SUBHAND¢FROM)% VALUE FROM? BOOLEAN FROM’ FORWARDS 
TOSTMTé’ FORWARD; 


02968500 T 00253004431 

25 15 48 LONGs NEXT SEG 3 
02969000 T 0003:0242:0 
02969500 T 00031024220 
02970000 tT 00038024210 

START OF SEGMENT ¥*eeRRRKKR = 26 
02970500 T 00265000030 
02971000 T 0026:0001%2 
02971500 T 0026:000424 
02972000 T 0026:000434 

26 15 B LONGe NEXT SEG 3 
02972500 T 0003!0242!0 
02973000 T 0003!0242:0 
92973500 T 0003024230 

START OF SEGMENT #x xk koe eR 27 
02974000 T 00273000030 
02974500 T 0027:000080 
02975000 T 00271000332 
02975500 T 0027:0003:3 
02976000 T 0027:0004:0 
02976500 T 0027:0005%2 
02977000 T 0027:!000732 
02977500 T 00273000732 
02978000 T 0027:0009%2 
02978500 T 0027':0011:3 
02979000 T 00273004430 
02979500 T 00273001440 

27 1S 18 LONG» NEXT SEG 3 
02980000 T 0003:0242:0 
02980500 T 00033024220 
02981000 T 0003:024280 

START OF SEGMENT ##& # eRX 28 
02981500 T 0028:000030 
029827000 T 0078:0000:0 
02982500 T 00283000081 
92983000 T 0028:0001:3 
02983500 T 0028:000431 
02984000 T 0028:0006:0 
02984500 T 00283000831 
02985000 T 0028:0011:2 

28 IS 14 LONGs NEXT SEG 3 
02985500 T 00033024230 
02986000 T 000340242!:0 
02986500 T 0003:0242:30 
02987000 y 0003:0242:0 
02987500 T 0003:0242!0 
03001000 T 00033024230 
03002000 T 00034024280 
03003000 Tt 0003:9242:0 
03004000 FT 0003:0242:0 
03005000 T 00033024230 
03006000 Tt 00033024210 
03007000 T 0003:0242%0 
03009000 T 0003!0242:0 
03040000 T 0003!10242!0 
03011000 T 0003%0249!0 
03012000 T 00031024220 


om 2) 


CO) Pe. ow. SES Ds ae 


O 
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O 
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INTEGER PROCEDURE IFEXP3 FORWARD? 
PROCEDURE PARSE: FORWARD: 
PROCEDURE DOT: FORWARD; 
PROCEDURE. IFCLAUSF3 FORWARD: 
INTEGER PROCEDURE GFTCSYLLABLFE)SVALUE SYLLARLE: REAL SYLLARBLE$ FORWARD3 
INTEGER PROCEDURE GNATCL)3 VALUE Ls REAL Ls FORWARD: 
PROCENURE PANA$ FORWARDS 
PROCEDURE TFSTMT$ FORWARD; 
PROCEDURE GOGENCLARELBAT»*BRANCHTYPF)3 
VALUF LABELBATs»RRANCHTYPE? 
REAL LABELBATsBRANCHTYPE? FORWARDS 
BOOLEAN PROCEDURE StMPGO3 FORWARDS 
PROCEDURE STMT$ FORWARD? 
PROCEDURE EMIT¢SYLLABLE)# VALUE SYLLABLE? REAL SYLLABLE? FORWARD? 
PROCEDURE PROCSTMT¢FROM)3 VALUF FROM$ BOOLEAN FROM$ FORWARDS 
PROCEDURE STRMPROGCSTMT3 FORWARDS 
PROCEDURE CONSTANTCLEAN? FORWARD? 
PROCEDURE SCATTERFLBAT? FORWARDS 
PROCEDURE EMITBCBRANCHsFROMsTOWARDS)3 VALUE BRANCHs FROM» TOWARDS3 
INTEGER BRANCHsFROM»s TOWARDS’ FORWARD? 
PROCEDURE VARIABLE¢FROM)? INTEGER FROM? FORWARD? 
PROCEDURE IMPFUN? FORWARD} 
PROCEDURE RIGHTCL)$ VALUE Ls INTEGER Lt FORWARDS 
PROCEDURE STREAMSTMT$ FORWARD$ 
PROCEDURE SEGMENTSTART(CB)3 VALUE BSBOOLEAN B3FORWARD3 
PROCEDURE SEGMENTCSIZE*FR)3 ValLUE SIZEeFR; INTEGER SIZE*FR$ FORWARD: 


INTEGER PROCEDURE RAF FORWARD? 
PROCEDURE PROGNESCBLDR( Ar BeCeDISVALUE ArBeCeD3 
INTEGER AsCsDé BOOLEAN Be FORWARD; 

PROCEDURE BANA; FORWARD; 

PROCEDURE EMTTNUM¢CA)$ VALUE Ae REAL At FORWARDS 

PROCEDURE FMITNCA,BeT)3 VALUF AeBeT$ INTEGER AeBoT3 FORWARDS 
INTEGER PROCENURE GETSPACECSsL)3 VALUE Seb} 

INTEGER WF BOOLEAN S3# FORWARDS 

PROCEDURE FORSTMT; FORWARD; 
REAL PROCENURE TAKFcINDEX)$ VALUE INDEX? INTEGER INDEXS FORWARDS 
PROCEDURE Fi FORWARD? 
PROCEDURE FENTRY¢ TYPE)? VALUE TYPE*# REAL TYPES FORWARD? 
PROCEDURE PUTNBUMP?P1)? VALUE P1# REAL Pys FORWARDS 
PROCEDURE JUMPCHKNX$ FORWARD3 
PROCEDURE yUmpCHKX}; FORWARD: 

PROCEDURE DBLSTMT} FORWARD; 

PROCEDURE BLOCK(S); VALUE S$ BooLEAN Ss ForWARD3 
PROCFDURE pPURGECSToPPER)S VALUE STOPPERSREAL STOPPERSFORWARD3 
PROCEDURE ENTERCTYPEV)3 

; VALUF TYPEVS3 
REAL TYPEVS$FORWARDS$ 


COMMENT THIS SFCTION CONTAINS THE FMITTERS. THEY ARE THE AGENTS WHICH 
ACTUALLY PROnUCr CODE AND DEBUGGING OUTPUT: 
COMMENT eMITL FMITS A LIT CALLS 


03013000 
03014000 
03015000 
03018000 
03019000 
03020000 
03021000 
03022000 
03023000 
03024000 
03025000 
03026000 
03027000 
03028000 
03029000 
03030000 
03034000 
03035000 
03036000 
03037000 
03038000 
03039000 
03039500 
03040000 
03041000 
03042000 
03043000 
03044000 
03045000 
03046000 
03047000 
03047100 
03048000 
03049000 
03050000 
03051000 
03051001 
03052000 
03053000 
03054000 
03055000 
03057000 
03058000 
03059000 
03040000 
03067000 
03048000 
03069000 
93070000 
03071000 
03072000 
03073000 
03074000 
03075000 
04000000 
04001000 
04002000 


AHA HAH AHHH AAT HHA ARTHAS A TA AA HAA A A A tH tS tH 


00033024230 
00032024210 
00033024210 
0003:0242:0 
0003:024230 
0003:0242:0 
00033024230 
00038024220 
00031024230 
00033024210 
00033024210 
0003:024210 
0003:024210 
00032024220 
0003%024250 
00032024230 
00033:0242:0 
0003:024230 
0003:0242:0 
00033024210 
0003!094220 
0003!0242%0 
00035024210 
00033024220 
0003:0242:0 
0003:0242t0 
000330242:0 
00038024230 
000310242%0 
00033024230 
00032024210 
0003:02423%0 
000330242:0 
0003:024230 
00038024210 
0003:0242:0 
0003024220 
00033024230 
00037:0242380 
00032094240 
00033024230 
00033024230 
0003!0242080 
0003%024250 
0003024230 
0003!0242!0 
0003:024210 
00033024230 
0003:024230 
0003:024210 
00037024210 
00033024220 
0003:024230 
00033024210 
0003:0242:0 
00033024230 
00033024220 


) 


PROCEDURE EMITLCLITERALI#® VALUF LITERALS INTEGER LITERALE 
EMITCORLITERALL 36:36240))3 
COMMENT FMITO EMIT AN OPERATORS 
PROCEDURE EMITOCOPFRATOR)$ VALUE OPERATORS INTEGER OPFRATOR3 
EMITc1ROPFRATOR; 362 38:10))93 
COMMENT FMyTC 1S PRIMARILY FOR USE BY STRMSTMT TO EMIT CHARACTOR MODE 
OPERATORS, wWOWEVER tT ALSO HANDLES DIA, DIB, AND TRB} 
PROCEDURE EMITC¢REPEAT» OPERATOR)? VALUE REPEAT, OPERATOR? 
INTEGER REPEAT ® OPERATOR? 
BEGIn 
IF REPEAT264 THEN FLAGC268)3 
EMITCOPERATORQRREPEATE36:42:6)]) END EMITC; 
COMMENT FMITV EMI Ts AN OPERAND CALLe IF THE ADDRESS IS FOR THE SFCOND 
HaLF OF THE PRT» THEN IT ALSO EMITS A PRTE? 
PROCEDURE EMITVCANDRESS)3 VALUF ADDRESS’ INTEGER ADDRESS3 
REGIN IF ADDRESS > 1023 THEN EMITOCPRTED? 
EMITC2 & ANDRESS [(36$38310]) END EMITV3 
COMMENT EMITN EMITS A DESCRIPTOR Calbe JF THE ADDRESS IS FOR THE 
; SFCOND HALF OF THE PRT» THEN IT ALSO EMITS A PRTE$ 
PROCEDURF EMITNCANDRESS)$ VALUF ADNRFESS? tNTEGER ADDRESS? 
BFGIN (tF ADDRESS > 1023 THEN EMrTOCPRTE)$ 
EMIT¢3 & ANDRESS [(36%38:10]) END EMyTN3 
COMMENT EMJTPATR EMITS A LtTc ADDRESS FOLLOWED BY OPERATOR, «IF THE 
ADDRESS 1S FOR THF SECOND HALF OF THE PRT» THEN IT ALSO 
EMITS PRTE3 
PROCEDURE EMITPAIRCADDRESS,OPERATOR)> 
VALUPF ADDRESS» OPERATOR; 
INTEGER ADDRESS,OPERATOR; 
REGIN 
EMITLCADDRFSS)3 
1F ADDRESS > 1023 THEN EMITOCPRTE); 
EMI TOCOPERATOR) END EMITPAYR? 
ComMMENT ADYUST ADJUST | To THE BEGINING OF A WORD AND FILLS IN THE 
INERVENING SpACE WITH nopS+ IT CHECKS STREAMTOQG To DECIDE 
WHICH SORT OF NOP TO USE; 
PROCEDURE ADJUST; 
BFGIN 


WHILE L,C46:2]40 po FMITC45)3 
; END anJusT3 
PROCEDURE EMITLNG; 
BEGIN Lapel fF; 


IF NOT LINKTOG THEN GO TO E3$ 


COMMENT G9 TO F TF LAST THING 1S A LINKS 
IF GETCL) ¢ O THEN gO TO &3 
COMMENT EITHER LAST EXPRESSION WAS CONDITIONAL OR THERE 1S NO 


LNG OR RELATIONAL OPERATOR: 
IF GTi ¢« GET¢(L*"1) = 77 THEN L « Lew} 
COMMENT LAST TH1NG WAS AN LNG ™ SO CANCEL JT? 
FLSF TF GT1.£42%6)=21 AND G11.037%2)=0 THEN &% AHA 
_ COMMENT LAST THING WAS A RELATIONAL? 
BEGIN LeL=as eM; TOCREALCROOLEANCGT1,£36310)) Fav 
BOOLEANcIF GT1,(49%2] = O THEN 511 ELSE 463))) 
COMMENT NEGATE THE RELATIONAL? END ELSE 
E: EMITo¢LNG) END EMI TLNGS 


29 IS 


04003000 
04004000 
04005000 
04006000 
04007000 
04008000 
04009000 
0407,0000 
04041000 
04012000 
04013000 
04014000 
04015000 
04016000 
04017000 
04018000 
04019000 
04020000 
04021000 
04022000 
04023000 
04024000 
04025000 
04026000 
04097000 
04028000 
04029000 
04030000 
04031000 
04032000 
04033000 
04034000 
04080000 
04081000 
04082000 
04083000 
04084000 
04085000 
04086000 
04087000 
04098000 
04099000 


START OF SEGMENT 


04400000 
04101000 
04102000 
04103000 
04404000 
04105000 
04106000 
04107000 
04108000 
04109000 
04410000 
044414000 
04112000 


18 LONG 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Ag 
T 
T 
T 
Tt 
T 
T 
T 
T 
T 
T 
Ji 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
2 


Per rrr ery 


0003%024210 
0003!'0242:0 
00032024420 
00033024430 
00038024410 
00032024680 
0003202460 
0003%0946%0 
00039094670 
0003!024610 
0003%0246%0 
0003:0248:0 
00033025030 
0003#F0250:0 
000320250:0 
0003:0250:0 
0003302520 
000330254340 
0003:025420 
00033025430 
0003:025430 
00032025630 
0003!:025830 
0003302580 
0003!0258:0 
000310258:0 
00033025810 
000330258:0 
0003:0258:0 
00031025830 
000348025831 
0003'0260%4 
00033096133 
00033026133 
00033026133 
00033026113 


00033026133 - 


00033026133 
0003:0261:3 
000330265:2 
0003:0265:2 
00033026582 


00293000030 
0029:0000%1 
002930000314 
002930002384 
00293000214 
002930002%4 
00291000533 
00292000533 


00293000983 


0029!000933 
002930014234 
0029100;5!3 
00292001523 
NEXT SEG 


29 
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COMMENT EMI TR EMITS a BRANCH OPERATOR AND ITS ASSOCIATED NUMBER3 
PROCEDURE EMITROBRANCH» FROM» TOWARDS )3 
VaLUE BRANCHsF ROMs TOWARDS? 
INTEGFR BRANCH» FROMsTOWARDSS 
BEGIN 
INTEGER TL3 


Th ¢« L3 
IF TOWARDS > FOULED THEN FOULFD « TOWARDS: 
lL. « FROM™23 
GT1 « TOWARDS#FROM3 
IF TOWARDS, £46%2] = 0 
THEN BEGIN 
BRANCH « BRANCH&1£39!4721]3 
eTi + TOWARDS DIV 4 ™ ¢FROM™1) piv 4 END3 
EMrTNUMCABS(GT1))3 
EMrTOCBRANCH&¢REALCaTi2 0)412542846321)3 


Lo « Th 
FND FNITB: 
COMMENT NEBUGWORD FORMATS TWO FIELOS FOR DEBUGGING OUTPUT IN 
OCTAI» NAMELY 3 
t+ 4 CHARACTERS For THE |, REGISTER. 
90616 CHARACTERS FOR THE WORD BEING EMITTED. ; 
STREAM PROCEDURE DERUGWORDC SFQ*CODE*FEIL Ys VALUE SEQ*CODE 3; 
REGIN 
DI*FEIL$ SI* Loc SEQs Sle SI+43 DS © 4 CHR: 
DS ¢« 2 LyT" ", 
SI * LOC CODE ; 
16(¢ nS « 3 RESET’ 3¢ IF SB THEN DS*SET ELSE 
nS « RESET $ SKIP 1 SB))3 
29008 «© 2 LiT™ " 93 
FND 3 
EMITWORD PLACES THE PARAMETER,"WORD",INTO EDOC, IF 


COMMENT 
DFRUGGING IS REQUTRED, "L" AND "WORD ARE OUTPUT ON 
THe PRINTER FILE IN OCTAL FORMAT, ; 
PROCEDURE EMETWORN cWORD)$ VALUE wORDs REAL WORDS 
BEGIN 
ADJUST3 
TF L2 4088 THEN BEGIN ERR(200)3 [403 END 
ELSE BEGIN 


MOVEC1»WORDs CODE¢L DIV 444293 
_ TF DEBUGToG THEN 
BEGIN DEBUGWoRDCB2DCL) ®WORD>LINYS 
WRITELINE END; 
FOULED « L * L+4s END 
END EMITWORD; 

COMMENT CONSTANTCLEAN IS CALLED AFTER AN UNCONDITIONAL BRANCH Has 
REEN FMITTEDse IF aNY CONSTANTS HAVE BEEN ACCUMULATED RY 
EMITNUM IN INFOCLOex]* CONSTANTCLEAN WILL FIX THE CHAIN 
OF cC@RELATIVE OPDC S LEFT BY EMITNUM, TF C#RELATIVE 
ADDRESSING IS IMPOSSIBLE C1.E, THE ADDRESS 
IF GREATER THAN 127 WORDS) THEN THE CONSTANT ALONG WITH 
THE 1ST LINK OF THE OPNDC CHAIN IS ENTERED IN INFO, 

AT PURGE TIME THE REMAINING OPnc S ARE EMITTED WITH 
F "RELATIVE ADDRESSING AND CODE EMITTED TO STORE THE 
CONSTANTS INTO THe PROPER FeRELATIVE CELLS, 3 


START OF SFGMENT 


30 15 


04113000 
04114000 
04115000 
04116000 
04117000 
04118000 


04119000 
04119500 
04120000 
04120100 
04420200 
04120300 
04420400 
04420500 
04121000 
04422000 
04123000 
04124000 
04125000 

49 LONG 
04426000 
04127000 
04128000 
04129000 
04130000 
04131000 
04132000 
04133000 
04134000 
04135000 
04436000 
04437000 
04138000 
04139000 
04140000 
04741000 
04442000 
04443000 
04444000 
04745000 
04446000 
041447000 
04148000 
04149000 
04150000 
04151000 
04152000 
04153000 
04154000 
04155000 
04156000 
04457000 
04158000 
04159000 
04460000 
04161000 
04162000 


AN AH NM HAH ANB MHA HH ATA tt A HH HH He 
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0003:0265:2 
0003:0265:2 
00033026532 
0003:026532 


0003:026532 
sR HOR Rk 3 
00303000010 
0030:000031 
0030:0002!1 
0030:0004:0 
0030:000532 
00301000630 
0030:0007%2 
0030:0008:1 
00301004123 
00303001221 
00303004532 
0030:004532 
00302001532 
NEXT SEG 
0003!0265!2 
0003!0265!2 
00032026522 
0003:0265:2 
0003:0265:2 
0003:026532 
0003:0266:0 
00033026732 
00033026733 
000330267: 3 
0003026933 
0003:0270%4 
00033027133 
00033027133 
00038027133 
00038027133 
000320271433 
00038027133 
00038027123 
00033027234 
0003%02075%92 
00033097739 
00032028230 
00035028231 
00031028532 
00033029533 
00033029732 
00033029733 
00033029733 
00033029733 
00038029733 
0003!029733 
0003:0297:3 
00033029733 
00032029733 
0003:0297:3 
00038029733 


. 00033026522. 


0 


3 


C) 


ttn, 


} 


“ 


PROCEDURE CONSTANTCLEAN 3 


IF MRCLEAN THEN 
BEatN 
WNTEGER Jo TEMPLe ne LINK} 


BOOLEAN CREL?# 
LABEL ALLTHU 3 


FoR J « 4 STEp 2 UNTIL LASTENTRY Do 
BEGIN 
ADJUST: TEMPLeLs LeINFOL ge 25570+1);3 
CREL © FALSE? 
DO BEGIN 
IF neCTEMPL@L+3907Vv 42128 THEN 
IF MODE # 0 THEN 
REGIN FLAG(S0)$3 GO TO aLLTHU END; 


LINK«GETCL)3 
cCRrh « TRUE} 
TF MOne # O THEN FMITVCD+768) ELSE 
PMY TVCREALCTEMPL2>2048)x1024+TEMPL nrv 4933 


ENN UNTIL Le L JNK = 4095 3 
ALLTHU? L. « TeMPL; 
IF cCReL THEN EMITWORDC JFNFOLO,255"J 93 
ENDS 
LASTENTRy « Q3 
END 3 


COMMENT EMITNUM HANDLES THE EMISSION OF CODE FOR CONSTANTSsBOTH 


EXPLICIT AND IMP},ICIT, IN EVERY CASEsEMITNUM WIL, 
PRQUUCE CoDE To GET THE DESIRED CoNSTANT ON Top oF 
THE STACKs IF THE NUMBER IS A LITERAL A SIMPLE LITC 
SYLLABLE IS PRODUCED+ HOWEVER*NON"LITERALS ARE KEPT 
IN THE ZERO"TH ROW OF INFO WITH THE SYLLABLE 
POSITIONeL, THE FIRST EMITNUM ON A PARTICULAR 
CONSTANT CAUSES THE VALUES OF L AND THE CONSTANT 

TO BE STORED IN FNFOLO,*] CNOTES ITEMS ARF STOREN 

IN REVERSE STARTING WITH INFOLOs255)°ETCe)_5 THEN 
ITS THE JOR OF CONSTANTCLEAN TO EMIT THE ACTUAL 
OPpc (SFE CONSTANTCLEAN PROCEDURE FOR DETAILS) 3 


PROCEDURE EM|TNUM¢ C )3 VALUF Cs REAL C3 


BEGIN LABEL FINtSHEDeFOUND ¢§ REAL N3 


IF Cird%37]=0 THEN EMyTL¢C) 
ELSE 
BEGIN 
FOULED « L$ 
FOR N « 1 STEP 2? UNTIL LASTENTRY DO 
IF 1NFOr0,255eNy = C THEN GO TO FOUND 3 
INFOGO9®955 =LASTENTRY] « U3 
INFOLO®#?255 “LASTENTRY™1]¢ C 3 
EMITNC 102393 
IF MODE=Q THEN EMITOCNOP); 


04463000 T 
04464000 T 
04465000 T 
04166000 T 
START OF SFGMENT * 
04467000 T 
04468000 T 
04469000 T 
04470000 T 
O4471000 T 
04172000 T 
04173000 T 
04174000 T 
041475000 T 
04175500 T 
04176000 T 
04177000 T 
04178000 T 
041479000 T 
04180000 T 
04181000 T 
04182000 T 
04183000 T 
04184000 T 
04184500 T 
04185000 T 
04186000 T 
04187000 T 
04188000 T 
04489000 T 
041490000 T 
31 18 33 LONG, 
04194000 T 
04192000 T 
04193000 T 
04194000 T 
04195000 T 
04196000 T 
04197000 T 
04198000 T 
04199000 T 
04200000 T 
04201000 T 
042027000 T 
04203000 T 
04204000 T 
START OF SEGMENT * 
04205000 T 
04206000 T 
04207000 T 
04207500 T 
04208000 T 
04209000 T 
049;0000 T 
04211000 T 
04212000 T 
04212100 T 


0003!029733 
00033029733 
000310298:0 
0003:029834 


KOR AO 3 


0031000010 
00312000080 
0031%0000!%0 
0034%0000!0 
00317000172 
00312000132 
0031:0005:2 
00313000533 
0031:0006:0 
003130008:4 
003148001010 
003142001133 
0034:0041%3 
00318001123 
00312001133 
00312001133 
00313001133 
0031:0013%2 
0031410013:3 
003130016:0 
00314001933 
0031%0091!%2 
00313002231 
0031:00205:3 
00313002830 
00343002834 
NEXT SEG 
00032030312 
0003103032 
00032030382 
0003:0303:2 
0003:0303:2 
00033030332 
00033030382 
00033030382 
00033030332 
000330303%2 
00033030332 
00033030332 
00032030382 
0003303032 


1 


3 


errr es. 32 


0032400000 
0032%000234 
0032300032 
00323000333 
003230004:0 
0032:0005%2 
003237004030 
00323001281 
0032:0015:3 
0032:001630 


Cer 


C) 


) 


) 


I 
— 


Sapocbesin*ss Tomas, We sy 


GO: Hor 16 43 


oO mee © ae © ee 


OO; “Or © 


FOUNN? 


LINKTOG*FALSF3 
IF LASTENTRY © LASTENTRY#2 > 128 THEN 
BEGIN 
C + BUMPLS: 
CONSTANTCLEANS 
EMITBCBEWsC,L)3 
END} 
GO TO FINISHFD? 
eMITCINGOLOs255 #Na1))3 
LINKTOGeFALSE3 
INeOrO,255=Nai]e Le43 
TF MODE=0 THEN EMITOCNOP)3 
FNp$ 


FINISHFOSEND FMYTNUM 5 


COMMENT 


ALPHA pRaCEDURE 


COMMENT 


L$ 


COMMENT 


ALPHA PROCEDURE 


COMMENT 


SFARCH PERFORMS a BINARY SEARCH ON THe COP AND WOP 
ARRAYS, GIVEN THe OPERATOR BYTS SEARCH YIELDS Tyr 8¢n 
MNEUMONIC FOR THAT OPERATOR, TF THE OPERATOR CANNOT 

BE FOUND SEARCH YIELDS BLANKS, 

NOTE: DIA»DIBreTRB ARE RETURNED AS BLANKS. $ 
SEARCH CQ*KEY)$ VALUE KEY$ ARRAY QLo]! REAL KEY 3 
BEGIN LABEL ls 


GT1 aAND GT2 ARF INITIALIZED ASSUMMING THAT @ JS ORDERFN 
BY PAIRS CARGUMFPNT»FUNCTION*s ARGUMENT» FUNCTIONSETC, ) 
AND THAT THE FIRST ARGUMENT IS IN Q@£4],. FURTHERMORE 


THE LENGTH OF Q@ IS 128, ; 
INTEGER Nel 3 
N © 64 $ 


FOR | « 66 STEP IF QCLI<KEY THEN N FLSF & N 
WHILE NeN pyVv 2 2 1 po 
Ir Qf I J= KeY THEN GO TO L 3} 
I «03 COMMENT aARGUMENT NOT FOUNDsSEARCHFQL1I 3 
SFARCH©Q@EL Ir +1) 3 
END SFARCH 3 


R2n cONVERTS THE FOUR LOW ORDER OCTAL DIGITS TO BcD 
CONE 3 

B2n(B)# VALUE BF REAL B3 ; 

B2D+08B7 452454378 Br39342231 8B 3383983I8BL 27336837 $ 

PACK 1S A STREAM PROCEDURE WHICH INSERTS THE SYLLABLE 
INTO THE EDOC ARRAY. THE SPECIFIC ELEMENT OF EDoc 

TS pPRECISILY = EDOCE CL DIV 4) DIV yo8eC< DIV 4dMOD 178] 
SYLLABLE POSITION=C(L MOD 4 )» WHERE L IS THE SYLLABLE 
NUMBER RELATIVE To THE BEGINNING OF THE SEGMENT; 


STREAM PROCEDURE PackKCwORD*POSITIONs SYLLABLE D3 


ValUpF POSITIONs SYLLABLES 

BEGIN 

DNIe*WORD 3 DJ © ml+POSYTTION $ DI © DI+POSITION: 
S1elLOc SYLLABLE 3 ST*S1+63 

NS¢2 cHR 3 

END PACK 3 


COMMENT pFRUG PRINTS OUT OguErT CODF IF “DERUGN" IS SET? 


PROCEDURE MFRUGCS)} VALUE S$ REAL S} 
BEGIN Real T13 


IF SINGLTOG THEN 


04213000 
04214000 
04215000 
04216000 
04217000 
04218000 
04219000 
04220000 
04221000 
04222000 
04223000 
04223100 
04224000 
04225000 
32 1S 38 LONG 
04226000 
04297000 
042278000 
04299000 


04230000 
04231000 
04232000 
START OF SFGMENT 
04233000 
04234000 
04235000 
04236000 
04237000 
04238000 
04239000 
04240000 
04241000 
04242000 
04243000 
04244000 
33 1S 16 LONG 
04245000 
04246000 
04247000 
04948000 
04765000 
04246000 
04947000 
04768000 
04269000 
04270000 
04271000 
04272000 
04273000 
04274000 
04275000 
04276000 
04277000 
04277500 
04278000 


AAA HAH TR HA TDAH BHA HAHAHAHA BH HAA AAAS KR ss AHA HA HH tt 


0032:0018:0 
0032:0019%2 
0032002031 
0032:002132 
00323002332 
00323002333 
0032:0024%1 
0032:0024%1 
003223002532 
00322002831 
003273002983 
00322003382 
0032%0035:2 
00321003532 
NEXT SEG 
00033030332 
000330303%2 
00032030332 
000320303892 
0003%0303%2 
00033030332 
00033:0303%2 
OR ROKK 3 
00332000070 
003320000380 
003340000%0 
003320000380 
0033:0000:0 
0033:0000:0 
0033:000031 


3 


3 


0033:%0005:%2. 


00338000982 
00338001182 


003320011433. 


0033:0013:3 
NEXT SEG 

00033030332 
0003#0303!%2 
00032030332 
00033030332 
00033034182 
00032034482 
0003%0311%2 
00038031182 
0003:03113:2 
0003:0311:e 
00033031132 
00038031182 
00038031220 
000330313%2 
00033034333 


00038031450 . 


00032031430 
00032031440 
00033034430 


START OF SEGMENT kkk oR RK & 3 


04278500 T 


00343000030 


3 


4 


(Cae © aa © ee © 


C) 


) 


(3 


WRITECLINEG»BUGsB2DCL)» 
IF STRFAMTOG THEN 


SFARCHCCOPsS,£42:6]) 


PFLSe Yr T1i#S,(4632)=21 THEN SEARCHCWOP,S,£36310)) 

FLSE WOPLT11 » 
BencS,636%67) ELSE 

ELSE Bod¢S,636%49))+B2D¢5)) 


IF STREAMTOG THEN 
TF Tysi1 THEN WOPr1) 


ELSE WRITECLINE »BUGsBoDCL)» 


IF STREAMTOG THEN 


SEARCH(COP*S4£42:6]) 


FLSE IF Ti:#5e046;2Je1 THEN SEARCHCWOP?S.636310]) 


FLSE WOPECTI] » 


IF STREAMTOG THEN 


hedgest bad eo ee B2n(S.£36:6)) ELSE IF Tis THEN WOPE1] 
ELSE B2n(S.l36:10])*R2D¢(5))3 


END DERUGS 


COMMENT 


PROCENURE EMIT ¢ S ) 3 VALUE S3 


COMMENT 


COMMENT 


PROCEDURE 


EMIT PLACES SYLLARLES INTO EDOCs 
NEFRUGGING OUTPUT ON THE PRINTERe 
GREATER THAN 4093 SYLLABLES, 
Real  S§) 3 


CALLS DEBUG FOR 
AND CHECKS FOR SEGMENTS 
; 


BEGIN 

If L <¢ 4088 THEN 
BFGIN 

LINKTOG « TRUE3 


PackcCODEChL DIV 441),b,£46:2],5)3 


Tr DFBUGTOG THEN nEBUGCS): 
Leeli+ 4 3 

END FLSE 

BEGIN FRR¢200)3 tet? END: 


200 EMIT = SEGMENT GREATER THAN 4093 SYLLABLES *} 


END EMIT 3 
EmMITOD EMITS THE DIA*DIBs TRB SEQUENCE OF CODEe THE 
PREVIOUS SETTING OF THE G™H AND K*V REGISTERS IS COMPARED 
THE CURRENT »« IF THE G™HeK™y OR ROTH ARE ALREADY SET THEN 
THE APPROTATE SYLLABLECS) ARE OMITTED 
Ir O BITS ARE TO BE TRANSFERRED THEN NO SYLLABLES ARE 
EMITTED H 
EMITNCAsBoT)$ 


VALUE AsBeT * INTEGER AeBoT3 


BEGIN LABFL EXT TsNORMALS 


NORMAL? 


Real Qs 

Ip T = 15 THEN 

BEGIN 

Ip A = 33 THEN @ « 512 

FLSE tF A # 18 THEN GO TO NORMALS 
If B = 18 THEN Q « Q4+256 


ELSE IF B # 33 THEN GO TO NORMAL? 

EMITO(94+197)3 GOMMENT == THIS GETS OUT FIXED FIELD3 
GO TO FXIT3 

END$ 


Ir T#¥ O THEN 
REGIN 


EMITCCCDIALA#A) DIV 4)x512 + €C Ae A MOD 6)x 64 + DIA)? 


EMITCCCDIALB*By DIV 6)x512 + € R* B MOD 6)x 64 + DIB) 


04279000 
04279500 
04280000 
04280500 
04281000 
04281500 
04982000 
04282500 
04783000 
04283500 
04284000 
04284500 
04285000 
04285500 
04286000 
64 LONG 
04288000 
04289000 
04290000 
04291000 
04292000 
04293000 
042994000 
04295000 
04296000 
04297000 
04298000 
04299000 
04300000 
04301000 
04302000 
04305000 
04306000 
04307000 
04308000 
04309000 
04310000 
04311000 
04311010 
START OF SEGMENT 
04311020 
04311030 
04311040 
04311050 
04311060 
04311070 
04311080 
04311090 
04311100 
04311110 
04311120 
04312000 
04343000 
04314000 
04315000 
04316000 
04317000 


34 1S 


A AHH HAHAHAHA AHHH HHA RHA AAA HA AT A AA AH A HS St tS 


FOR IO IK 


0034:00003%1 
00343000830 
0034%0009%2 
00342004031 
003480014582 
0034%0049%2 
003430003892 
00340029712 
00342003830 
00342003982 
00342004031 
0034:0045:2 
00343004932 
0034:005332 
0034:00613%2 
NEXT SEG 

00032031430 
00032031430 
00034031430 
000330344:0 
000332031430 
00032034430 
00038034533 
00033031680 
0003:031732 
00038032284 
00032030434 
00031039533 
0003#0305%3 
00032039983 
0003%0329%3 
00033032933 
00033032933 
00033032933 
00031032923 
0003:032933 
00033032933 
00032032933 
00033032933 


003540000!0 
0035%000010 
0035:000081 
00353000182 
00358000234 
003549000582 
00353000631 
00353000922 
0035001034 
00358001122 
00352001182 


00352001172 


00353004183 
0035%00420 
00353001220 
00358001782 
0035:0017:2 


3 


35... 


C) 


EXIT3 


Iss 


FMITCTRB+64xT)3 


FN) EMITD 
END3 


we 


PROceEpuURE EMITICE,AsB)3 VALUE FeAsRs REAL FeAr RB} 


BFGIN LABFL EX1T».1S3 


INTEGER SoT15T23 
PROCEDURE EM1T2¢(F.B)3 VALUE EB: 
REAL E3 
BOOLEAN B3 
BEGIN IF F— = O THEN 
BEGIN 1F B THEN EMITOCXCH)3 END 
ELSE BEGIN GT1 «+ E,ADDRESS3 
IF —E « E,CLASS € INTID THEN 
EMITVCGT4) 
ELSE IF E— < INTARRAYID THEN 
EMITPAIRCGT1*LOD) ELSE 
EMITNCGT1) 
FNO 
END3 
Ip B = O THEN 
REGIN EMJT21CE*FalLSE)3 GO TO EXIT END? 
If STACKCT # 0 THEN GO TO IS3 
IF B = 15 THEN 
REGIN IF A = 33 THEN 
BEGIN FMIT21(CEs FALSE) 
EMITCO)3 EMITOCINX)3 
GO TO EXIT? 
FND3 
IF A = 18 THEN 
BEGIN FMITCO)3 
EMIT21CE» TRUE DS 
EMITOC197)3 
GO TO EXIT3 
FNn3 
GO TO 7S} 
FND} 
IF B § 30 AND A+B = 48 THEN 
BEGIN EmMITo1cErFALSE)3 
EMITL¢(2*B™4)3 
EMITOCLND)3 
GO TO EXIT3 
END? 
Ip Cs ¢ (48","B) MOD 6248 $ 39 THEN 
REGIN EMIT21CEs FALSE)? 
EMITCT2eCTIeA DIV 6)x512+(4 MON 6)x644D;4A03 
EMITCCCA+B71) DIV 6 *T141)%512464x5437)3 
GO TO EXIT3 
FNp3 
FMITCO)S3 
FMIT2¢CEs TRUE) 
EMI TD¢CAr48"B.B)3 


35 18 


04318000 
04319000 
04320000 
04321000 
04322000 
04322100 


?7 LONG 


04500000 
04501000 


START OF SEGMENT 


04502000 
04503000 
04504000 
04505000 
04506000 
04507000 
04508000 
04509000 
04521000 
04522000 
04523000 
04524000 
04525000 
04526000 
04526100 
04526200 
04527000 
04528000 
04529000 
04530000 
04531000 
04532000 
04533000 
04534000 
04535000 
04536000 
04537000 
04538000 
04539000 
04540000 
04541000 
04542000 
04543000 
94544000 
04545000 
04546000 
04547000 
04548000 
04549000 
04550000 
04551000 
04552000 
04553000 
04554000 
04555000 
04556000 
04557000 


Se ee ee ee ee ee LL Lee Le Lee 


0035:002133 
00352002333 
00353002353 
00352002333 
0035:002333 
003531002333 
NEXT SEG 
00038032923 
00033039933 


rar ee Ss 2S 3 


0036%0000:0 
00363000020 
003620000t0 
00362000030 
00361000030 
00362000024 
0036300022; 
0036!000484 
0036!0006'0 
0036:0007%2 
0036:0008:%1 
0036:0010:0 
00363001132 
003620011:3 
0036:0011:3 
00363001231 
003620037434 
0036!0016:0 
00362001631 
0036#'0018:0 
003640014983 
00363002132 
003630091433 
003620021433 
00361002270 
00361002333 
0036:002431 
0036:0025%2 
0036100253 3 
00361002533 
00364009620 
0036009620 
0036%009834 
00363003050 
0036:0033%2 
00363003410 
003630034: 1 
0036:003481 
003630038:0 
00368003933 
00362004434 
0036:0049%3 
0036005030 
0036:0050:0 


3 


6 


0036:0051:2. 


0036!0052!0 
0036!0053%3 


ns 


EXIT? FNDS 


COMMENT TH1S SecTrON cONTaINS MISCrFLLANEOUS SERVICE ROUTINES 
COMMENT STEPY AND STEPHT ARE SHORT CALLS ON TABLES 

PROCEDURE STEPYT#? ELCLASS « TABLECre141)3 

INTEGER PROCEDURE STEPY? STEPTcELCLASS<TABLEC Te1+1)3 

COMMENT TAKE FETCHS A WORD FROM INFOS 

REAL PROCEDURE TAKECINDEX)3 VALUE INDEA$ INTEGER INDEX? 


TAKE « INFOCINDEX,LINKRe INDEX. LINKC]3 


CoMMENT PUT PLACES A WORD INTO INFos 
PROCEDURE PuTCWORDe INDEX): ValLUE WORD» INDEX; REAL WORD? INDEX; 


INFOCINDEXsLINKRe INDEXeLINKe] © WORD; 


COMMENT FLAG FLAGS FRROR MESSAGES» COUNTS THEM AND SUPPRESS FUTURE 


FRROR MESSAGES UNTIL THE COMPILER THINKS {T HAS RECOVERED; 


PROCEDURE FLAGCERRNUM); VaLUr FRRNUM$ INTEGER ERRNUM$ 


BFGIN 


COMMFNT WRITERROR 1S THE STREAM PROCEDURE WHICH ACTUALLY PRODUCFS 


THE FRROR MESSAGE ON THE PRINTERS 


STREAM PROCEDURE WRITERRORCERRNUM*SACCUMs LINE »COUNTsLSTSEQ)3 


COMMENT 


VALUE ERRNUM,COUNTS 
BEGIN 
DY « LINE? 44(DSe2LIT" "93 COMMENT CLEAR BUFFERS 
SI «LSTSEQ3 ST « S178 DS «WDS3 
St « LINE’ NS © 2 WOSS 
4epS © 2 lyT "XX")3 COMMENT SET RIGHT MARGIN FLAGS 
St « LSTSEQs DI + LSTSEQ3 pr « pI78s DS + WOS3 


pt « LINES Dr «© nyr+8? COMMENT INDENT MESSAGE? 

DS « 13 LIT "ERROR NUMBER 3 

SI «¢ LOC ERRNUM? DS «+ 3 DEC? COMMENT CONVERT ERRNUMS 
DS ¢ 4 LIT " == 3 


SI « ACCUM: SI «© SI#33 DS « CoUNT CHR; 
COMMENT PLACE ALPHA IN BUFFER; 
DS € LIr wo 
FND WRITERROR; 
IF ERRORTOG THEN % DO NOTHING IF WE SUPPRESS MSSGS, 
REGIN 
sPecTOG t= FALSE: 
FRRORCOUNT t= ERRORCOUNT4+13 COMMENT COUNT ERRORS} 
IF NOT LISTER THEN 
BEGIN 
EDITLINECLINeFCReL DIV 4eb, C4622) sMENTUM,0)$3 
MOVE C1, INFOCLASTSEQROW,LASTSEQUENCE JsLINC121)3 
mM NOHFADING THEN DATIMES WRITELINES 
END; 
PRINT CARDIMAGE IF WE ARE NOT LISTING} 
ACCUM[1] « Q3 COMMENT RESTORE ACCUMULATOR} 
WRITERRORCERRNUM,ACCUMC I JeLINC*#]°Q,712°6)> 
INFOPLASTSFQROWsLASTSEQUENCEJ)3 


TF NOT NOHEADING THEN WRITELINE # 


ERRORTOG «+ FALSE’ COMMENT INHIBYT MESSAGES3 


IF PUNCHTOG THEN 
BEGIN REAL Ty»ToeT3eTas LABEL Lely EXITs 


STREAM PROCKDURE P{CLeP)s VALUE P3 
BEGIN DI « Ly 15¢DS*gLIT"™ ")3 


s! ba LO¢e P} 


NI*Ls si*sl+53 SKIP 3 SpR3 


04558000 T 00361005333 
36 18 57 LONGs NEXT SEG 
05000000 T 00033032923 
05001000 T 0003:0329%3 
05002000 T 000330329383 
05003000 T 0003'0332%4 
05004000 T 000380338!0 
05005000 T 00032033870 
05006000 T 0003!0338!0 
05007000 T 0003:0344:0 
05008000 T 00032034430 
05009000 T 0003:0344:0 
050190000 T 000330348:0 
05011000 T 0003:0348:0 
05012000 T 0003:034830 
05013000 T 00033034830 
05014000 T 00033034880 
05015000 T 0003:30348:0 
05016000 T 00034034830 
START OF SEGMENT * 44 0k dOk x 3 
05017000 T 00378000030 
05018000 T 003720000:0 
05019000 T 003730000:0 
05020000 T 00371000182 
05021000 T 0037%0002:0 
05027000 T 0037:0002%1 
05023000 T 003738000333 
05024000 T 00371000434 
05025000 T 00372:0005%92 
05026000 T 0037%0007%2 
05027000 T 0037000733 
05028000 T 0037%0008:0 
05029000 T 003780009%2 
05030000 T 00373000982 
05031000 Tt 00373000983 
05032000 T 00373001070 
05033000 T 00372001020 
05034000 T 00372001031 
05035000 T 00374001133 
05036000 T 00373001221 
05037000 T 003710013352 
05038000 T 00374004323 
05039500 T 0037004712 
05039600 T 0037%004983 
05041000 T 0037%0031!%2 
05042000 T 0037:!00313%2 
05043000 T 00373003182 
05044000 T 0037:!0032!0 
05045000 T 0037!003434 
05046000 T 0037!0036:0 
05047000 T 00372004782 
05048000 T 0037'0048?0 
05049000 T 00378004834 
START OF SEGMENT koko ot ak Rk & 3 
05050000 T 0038:!0000:0 
050951000 T 00383000030 
05052000 T 0038:0002:0 


3 


(4 


8 


C) 


C) 


C) C) 


Cy 


oO “Or =O 


C) 


O 


Ss 


5 
Cos¢3 ReSrT33CIr SR THEN DS*SFT FbS¢ DS*RESFTSSKIP 1 $R))3 
STeP3 
DIepl+23 2¢8 
CDS«3 ReSETS3CTF SB THEN DS*SeT ELSE DS*RESET3SKIP 1 SR))3 
NSeL IT" ") END? 
STREAM PROCEDURE Pa¢LeP)s VALUE P3 

BEGIN DteLs DI «DT+26s0SeLITtON; 

S}#Pi SteSr=9%3 SKIP 1Sp3 


3 
(DS¢3 RESFET33CTF SB THEN DSeSrT ELSE DS*RESETSSKIP 1 SB))3 
END} 
REAL STREAM PROCEDURE ABSCA)# VALUE A3 
BFaIN DY « LOC ABS Sy «a? DSe WOS#Drept=8$ DS*RESET END? 
STREAM PROCEDURE BITEDUST¢XsNotDeLyNE,COUNT)$ VALUE 1D>N,COUNTS 
BEGIN LOCAL ToFosps 
DyeLOC Fs SteLINEs DSeWDOS3 pO Ter} 
SleLOC ;DsSteSl+osDSe BCHR$ 57(DSeo LIT" 93 
: SI ¢ Loc COUNT sSyeSI+8 ; 
DI «LoC H 3 DS «WDS 3 
NI * LOC LINE 3 S] © H3 
sI*LOc Xs:SKIP 2 SB; 
If SR THEN 
BEGUN SI*xs TeSys 


nyeLOc Fs STeLINES DS*wDOS#nleF3 
Ste LOG COUNTS: Syes +63 
4 
(DS¢«3 ReSeT#3ciF SR THEN DS«SFT ELSF DS*RESFT3SKIP 1 $B))3 
NSe? LyT™ "F SyeCOUNTS SyTeST+4B3 COUNTS} 
SleT3 
6(2¢8 
(DS+3 RFSETS3CIF SR THEN DS«SFT ELSE DS+RESETSSKIP 1 SB))$ 
NSe LITtw m3 DSeLIT" a 
Nr « LOC LINE § Sy ¢ 43 
SreTsSpeSp+48sTeST)sEND ENDS ° 
BITEDUSTCERRORCOUNTs 63 ,"PRT "sLINEs 2173 
FOR Tie O STEP 1 UNTIL 31p0 RITEDUSTCINFOL T1.*1943e" {NFO ",LINE,0O)3 
BrTFOUST¢ ELBATF*I],13,"ELBAT ™,LINE,0)3 
BrTEDUST¢STACKHEADE *1 924 e"STHEADs LINE» OD? 
Ty eMKABSCERRNUM) 43 T3eT qi 
Li To+ABS(T3)3 
IF 72e033;15]50 THEN BEGIN T3«T2.018:15]3 
IF T370 THEN GO TO EXIT ELSE GO TO L END 3 
T4 © Ip 72,033315) < 512 THEN O FUSE T2e033;15]272£30:10:2); 
LisPICLINCO]eTid¢IF TL=T3 THEN BEGIN IF T#0 THEN P2CLIN[0],74)3 
Tierint; 
WRITELINES 
T3*T2,01831513G0 TO L END? 
T1:=T1"i3 WRITPLINES 
GO TO Lis 
FXIT% END 3 


END END FLAG; 


LABEL ENDOFITALL; 
COMMENT ERR»1S THF SAME AS FLAG EXCEPT THAT IT MAKES AN ATTEMPT TO 


38 75 
37 IS 


05053000 
05054000 
05055000 
05056000 
05057000 
05058000 
05059000 
05060000 
05061000 
05062000 
05063000 
05064000 
05065000 
05066000 
05067000 
05068000 
05069000 
05070000 
05071000 
05071100 
05071200 
05072000 
05073000 
05074000 
05075000 
05076000 
05077000 
05078000 
05079000 
05080000 
05081000 
05082000 
05083000 
05084000 
05085000 
05086000 
05087000 
05088000 
05089000 
05090000 
05091000 
05097000 
05093000 
05094000 
05095000 
05096000 
05097000 
05097500 
05098000 
05099000 
05099100 
05100000 


i ne et eR ie es i es Ms Rl Nun Rl Me ee te Re De Nee De Dr ee ee ee oe er 


106 LONG» 


05101000 


T 


53 LONG» 


05101100 
05102000 


T 
T 


0038:0003:2 
00383000382 
00383000533 
0038:0006!:0 
0038:000631 
0038:0009%0 
00383003030 
00383001030 
0038:'0012:0 
0038:004234 
0038:001;2%4 
0038!001533 
0038!001533 
0038:004533 
00383001830 
0038!0048:0 
0038!0019%9 
0038'0020%0 
0038:002133 
0038:002230 
0038:002231 
0038:0023:2 
0038:0023:3 
0038:;002480 
0038;0025:2 
0038:!0026!0 
0038:80027!2 
00381002733 
00383002733 
0038:0030%1 
0038:003183 
00381003230 
0038:0032%4 
0038!0035%2 
00385003634 
0038:0037:t2 
00383003821 
0038:004183 
00382004933 
0038#0052%4 
00382005533 
0038:0058%1 
0038:0060:1 
0038:0063:3 
0038:0065:3 
0038:0070:0 
0038:0076:0 
0038:00772%2 
00383009132 
0038:0093:32 
0038:010431 
00382010582 


NEXT SEG 37 


003710050:0 
NEXT SEG 
0003:034830 


0003:0348:0 


DEFINE ERROR = ERR#3 


RecOVeER FROM FRROR SITUATIONS BY SEARCHING FOR A 
SEMICOLON, END» OR BFaIN? 

PROCEnURE ERR¢eeRRNUMI$ VALUE FRRNUM? INTeGFR fRRNUM3 
BEGIN FLAGCERRNUM)3 


IT « —["43 
IF ERRNUM = 200 THEN I t= 1/03 % SEGMENT TOO LARGE. 
IF ERRNUM = 611 THEN I :2 J/03 & ERRMAX EXCEEDED, 


DO IF STEPI = BEGINV THEN STMT UNTIL 
ELCLASS = ENDV OR ELCLASS = SEMICOLON END ERR; 
. COMMENT ERROR IS A SYNONM FOR ERRS$ 
COMMENT CHECKER Is A SMALL PROCEDURE THAT cHECKS TO SFE THAT THE 
UPLEVEL ADDRESSING CONVENTIONS ARE OBEYEnS 
PROCEDURE CHECKFR¢FLBATHORD)s; VALUF ELBATWORD’ REAL ELBATWORD3 
BFGIN 
1F MODE 2 2 THEN 
IF GTt « ELBATWORD,LVL 2 FRSTLEVEL THEN 
TF GT1 < SUBLEVEL THEN 
IF ELRATWORD, £932) # 4 
THEN BEGIN FLAGC10123 ERRORTOG « TRUE END 
FND CHECKERS 
COMMENT GIT 1S USED TO OBTAIN THE INDEX TO ADDITIONAL INFORMATION 
: : . GIVEN THE LINK TO THE ELBAT WORDS 
INTEGER PROCEDURE GITCL)3 VALUF L? REAL L3 
GIT « TAKECLI,INCR#beLINK3 
COMMENT GNAT 1S USFD TO OBTAYN THE PRT ADDRESS OF A GIVEN DESCRIPTOR, 
te THE ADDRESS HAS NOT BEEN ASSTGNEDs THEN IT USES 
GETSPACE TO OBTAIN THE PRT ADDRESS; 
INTEGER PROCEDURE. GNAT(L)3 VALUE Ls REAL L3 
BEGIN 
REAL A$ 


IF GNaT «<CASTAKECL))e¢ADDRESS#=9 
THEN PUTCARCGNAT!=GETSPACECTRUEPLeLINK+1) 9016337211] 0b) 
END GNAT3 


Real PROCFOURF TAKFFRSTS3 
TAKEFRST © TAKECELBATCIJ.UINK+ELRATLCII,INCR)3 
COMMENT STUFFF DIALS THE F"RrGySTER INTO THE F*REGISTER FIELD OF A 


DESCRIPTOR, THF DESCRIPTOR REMAINS ON THE TOP OF THE 
, STACK} 
PROCEDURE STUFFFCADDRESS)$ VALUE ADDRESS? INTEGER ADDRESS3 
BEGIN 


EMITPATRCADDRESS,LOD)3 
EMITN¢542)3 
EM170¢33918+15) END STUFFF3 
COMMENT 
PRESENT CODE? 
BOOLFAN PROCENURE LOCAL CELBATWORD)3 
VALUF ELBATWORD; REAL ELBATWORD3 
BEGIN TF ELBATWORD,LVL = LEVEL AND 
NOT BOOLEANCELBATWORD, FORMAL) THEN 
LOCAL « TRUE END LOCAL 3 
COMMENT PASSFORMAT COMPILES CODE THAT PASSES A FORMAT, TWo ITEMS ARE 
PASSED = THE ARRAY REFERENCING FoRMAT TABLE AND THE 
STARTING INDEXs THE ROUTINE HANDLES SUPERFORMATS ALSO} 
PROCEDURE PASSFORMAT? 
BEGIN INTEGER ANnRES3 


LOCAL 1S USED TO SEE WHETHER OR NOT A LABEL IS LOCAL TO OUR 


START OF SEGMENT 


39 1S 


05103000 
05104000 
05105000 
05706000 
05107000 
05107100 
05107200 
05108000 
05109000 
05110000 
05111000 
05112000 
05113000 
05114000 
05415000 
05116000 
05417000 
05418000 
05119000 
05420000 
05121000 
05122000 
05123000 
05424000 
054125000 
05126000 
05427000 
05428000 
05129000 
05130000 


05131000 
05132000 
05133000 

10 LONG 
05188000 
05169000 
05196000 
05497000 
05498000 
05199000 
05200000 
05201000 
05702000 
05203000 
05204000 
05205000 
05206000 
05207000 
05208000 
05209000 
052710000 
05211000 
05212000 
05213000 
05214000 
05215000 


HAA HAHAHAHAHA HH HAHAH HAA AAA Ae HAHA RAR AAA A HAA A VHA sis 


00038034850 


0003:0348:0 
00035034830 


0003:0348:0 - 


000313034983 
0003!0351%2 
0003:035323 
0003:0356:0 
00032035830 
0003:0360:1 
0003:0360:1 
0003:0360:1 


00032036031. 


0003:036034 
00033036084 
00033036133 
0003:0364!0 
000310365:2 
00033036681 
0003%0369!2 
00033036932 
0003!0369!%2 
0003:0369!2 
00034036932 
00031037532 
000310375%2 
00033037512 
0003!0375%2 
00031037582 
0003!037532 


OO FOE 39 


0039:0000t0 
0039:0002!0 
0039:0007:2 
NEXT SEG 

0003:0375%2 
0003:0375:2 
0003:038132 
0003:0381%2 
0003038412 
0003:0381!2 
000330384 :2 
000330381432 
0003%0383!2 
0003303833 
0003:0385!2 
00032038532 
00033038532 
0003803852 
00033038532 
000310387390 
00034038834 
0003'0392:0 
0003:0392:0 
00033039230 
0003:0392:0 
00033:0392:0 


3 
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CHECKERCFELRATCII):3 

ADRES © ELRATCIIJ.,ADDRESS; 

TF BOOLEANCELBATL1I.FORMAL) 
THEN BEGIN EMITVCADRES)$ ADRES © ADRES"@1 END 
ELSE BEGIN 

IF TABLE C1) = SUPERFRMTID 
THEN EMITLCTAKEFRST) ELSE EMITLCELBATL13,1NCR) 
END; . 

1F TABLECT) = SUPERFRMTIN 

THEN BEGIN BANA3 I © [#43 
EMTTOcCSSP)$ EMITOCADD)$; EMITVCADRES) END3 
EMITPAIRCANRES*sLOD) END PASSFORMAT3 


COMMENT STREAMWORNS ETTHER RESERVES OR UNRESFRVES STREAM RESERVED 
WORDS = {T COMPLEMENTS THEIR STATE3 
PROCEDURE STREAMWORDS:; 
BEGIn GT4 « O3 
DO BEGIN 
INFOCA*GTLJeLINK©STACKHEADEGT2«CT«INFOCL*GTLI) ADDRESS} 
STacKHEAD(GT2] + TaL INK; 
GTi * GT1+2; 
FND UNTIL BOOLFANCTeFORMAL) END STREAMWORDS3 


PROCEDURE PROGNFSCBLDRCPRTADR,SAVeS1ZEsTYPEDS 
VALUE PRTADR»SAV»SIZEs TYPES 
; INTEGFR PRTADR»SIZE»TYPE BOOLEAN SAV 
BEGIN PRTADRePRTADR, £38819]3 
Ie SAV THEN BEGIN PRTFPRTIADR) «© ¢ IF TYPE = LOES 
THEN Stze FLSE CORADR) 
RS ZEp 8338s ,OVRTYPE LL IA4385 IRS 62468273 
IF TYPE4LDES THEN CORADR«CORADR+S![ZE3 
END 
ELSE BEGIN PRIEPRTADRI <O&DISKADRE18233:15]851ZE[ 8! 38310) 
aTYPEL12433518106:46:273 
DISKADR«CSIZE+29) DIV 30+DISKADR; 
END3 
END PROGDESCREDR? 
COMMENT pOTSYNTAX ANALYSES THE SYNTAX OF A PARTIAL WORD DESIGNATOR, 
TT REPORTS IF AN FRROR IS FOUND, IT RETURNS WITH THE 
LITERALS tNVOLVED; 


BOOLEAN PROCEDURE pOTSYNTAXCFIRST»SECOND) 3 


INTEGER FIRSTsSFCOND? 
BEGIN 
LABEL EXIT; 


IF STEPT = FIELDID THEN &% GET INFO FROM JNFO %112" 
BEGIN ¥112" 
FIRST t= ELBATr1],5BI TFS 41128 
SECOND t= ELBATCIINBITF3 %112" 


START OF SEGMENT 


40 1S 


START Of SEGMENT 


eK ORK KKK 4 
05216000 T 00403000010 
05217000 T O0402000182 
05218000 T 0040:0002%1. 
05219000 T 0040:0002!4 
05220000 T 0040:0006!0 
05221000 T 00403000634 
052272000 T 0040:000732 
05223000 T 0040:004030 
05224000 T 004030041322 
05295000 T 0040:0012:0 
05226000 T OO040%0014%1 
05227000 T O040:00;47i2 

21 LONGs NEXT SEG 

05228000 T 00037039230 
05229000 T 00033039210 
05230000 T 00035039280 
05231000 T 0003!0392%0 
05232000 T 0003:039383 
05233000 T 0003:0394:0 
05234000 T 000331039881 
05235000 T 0003:0401:3 
05236000 T 00033040332 
05237000 T 0003204041 
05238000 T 00033040431 
05239000 T 00032040431 
05240000 T 00038040431 
05241000 T 0003:040431 
05242000 Y 00032040421 
05243000 T 00032040411 
05244000 T 0003:040431 
05245000 T 00038040481 
05246000 T 000314040421 
05747000 T 0003!0404%4 
052947500 T 0003:040434 
05248000 T 0003:0406:0 
05248500 T 0003:04086:0 
05249000 T 00032044080 
05250000 T 0003:044333 
05251000 T 0003#041630 
05259000 T 0003041680 
05253000 T 00032041923 
05254000 T 0003:042230 - 
05254500 T 0003:0424:30 
05255000 - 0003:042430 
05767000 T 0003:042434 
05268000 T 000370424314 
05269000 T 00032042434 
05270000 T 00033042424 
05271000 T 0003:0424%14 
05272000 T 00037042484 
05273000 T 00033042424 

ok AIO ak a ak 4 
05973100 c 004170000:0 
052973200 c¢ 0044:0001!%2 
05273300 C 0044#000133 
05973400 C 


0041%0003%2 


) 
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4 


Ce 4 
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© 


oy 2g 
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©) 


FN 
ELSF 
TF 


GO TO FXyT; 
D 


ELCLASS 
IF STEPY 
BEGIN 
FIRST ¢ 
SECOND 


wat 


IF STEP! = RTBRKET THEN 


LFTRRKET THEN 


FIELDID THEN 


= E,,BATC1I],SBITFS 


= ELBATCIIJ.NBITF3 


GO To EXIT; 


END 
ELSE 
IF FLOLASS = LITNO THEN 
TF STEPT = COLON THEN 
IF STEP: = LyTNO THEN 
IF STEPr = RTBRKFET THEN 


COMMENT IF TESTS ARF PASSFD THEN SYNTAX 1S CORRECT? 
TF CFIRST « ELBAT(C1*31],ADDRESS) x 
CSECOND « FLBATLI“1),ADDRESS)40 THEN 


IF FIRST + SECOND < 48 THEN 


eileen 
Zii2- 
%112" 
¥1i12= 
Z1i12= 
Zyt2* 
Zi12= 
2112" 
2112" 
eii2=° 
2112" 
zi12" 
ait2= 


COMMENT {F TESTS ARE PASSED THEN RANGES OF LITERALS ARE 0,Ki3 


GO TO EXy 
ERRC114)3 
DOTSYNTAX « 


T3 


COMMENT ERROR IF SYNTAX OR RANGE FAILS? 


TRUFs EXITS 


ROOLEAN PROCEDURE RANGE CLOWFR»AUPPER)} 


COMMENT RANGE TESTS THE CLASS 
1T 1S GREATER THAN OR FQUAL TO 
UPPER AND SF&TS RANGE To TRUE OR FALSE ACCORDINGLY. 


VALUE LOWER, 
REAL LOWER, 


UPPER; 
UPPERS; 


CLASS MUST BE IN ELCLASS3 


RANGE*ELCLASS 2 LOWER AND ELCLASS ¢€ UPPERS 
COMMENT GFT OBTAINS A SYLLABLE FROM EDOC, 


EMITTED 


3 


INTEGER PROCEDURE GETC¢L)# VALUE L? REAL Lt 


ComMMENT 


PROCEDURE CALLSWITCHCH)3 


BEGIN 


INTEGER STREAM PROCEDURE GETSYLCWeS)3 


BEGIN a « LOC GETSYL3 
I 


GET+¢GETSY1,¢C 


DI « NrT+63 
e Ws Sy «© SpeSs Sy ¢ Sy4S3 DS «© 2 CHR ENDS 


END DOTSYNTAX3 


VALUE S3 


ODEC L DIV at4)°L.04632)7)3 END GET3 


THE 


OF THE ITEM IN ELBATCII] TO Seer IF 
LOWER OR LESS THAN OR FQUAL To 


TTEMS 


THE ARRAY INTO WHICH CODE IS 


CALL SNITCH PERFORMS THE FINAL MESS oF GETTING A PROPER DE* 


SCRIPTOR TO THE ToP OF THE STACK; 
VALUE Hs REAL Hs 


BFGIN FMI Tye 


GNaATCH)); FMITOCPRTIE)DS 


EMTTOCLOD) END CALLSWITCH3 
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05273500 
05273600 
05273700 
05273800 
05273900 
05274000 
05274100 
05274200 
05274300 
05274400 
05274500 
05274600 


DEM} OOO 


05275000 
05276000 
05277000 
05278000 
05279000 
05280000 
05281000 
05282000 
05283000 
05284000 
05285000 
05286000 

32 LONG 
05287000 
05788000 
05289000 
05290000 
05291000 
05792000 
05293000 
05294000 
05295000 
05296000 
05297000 
05298000 
05299000 
05300000 
05301000 
05302000 
05303000 


05304000 
05305000 
05306000 
05307000 
05308000 
05309000 


START OF SEGMENT 


49 1S 


05310000 
05311000 
05312000 


12 LONG 


05313000 
05314000 
05315000 
05316000 


AMANO HHH HM HAA HAH HANA AIA A Yt HHA IIIT MDT 


0041:0005:2 
004141000583 
0041000523 
00413000533 
0041000631 
00442000810 
0041:00088 4 
0041!0010514 
00411001220 
0041:0013:2 
00413001333 
0041:001333 
00411001333 
0041430015%2 
00418001694 
0041:0013830 
0044%004983 
00433001983 
0044%002230 
0041:009532 
00412000782 
0041:000732 
00413000733 
0041:0098:0 
NEXT SEG 
0003'040434 
00031040414 
00038040484 
00031040484 
00032049431 
00032042434 
000332042481 
00033042431 
000330424: 1 
00033042431 
00032042431 
00035042434 
0003:04243 4 
000310424314 
000330424%4 
00038042484 
00032040414 
00032040494 
000310429%0 
0003804292 
00039049980 
00038042982 
0003:0429%2 
Pere eee ft! 4 
00424000080 
00428000024 
004210003!2 
NEXT SEG 
00031042932 
00033042922 
00031042932 
000330429382 
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PROCENURE WRITEPRT(PORS»NsGS)3 VALUF PORS,N+GS3 INTEGER PORSsNeGS3 


BEGIN 
LABFL EXIT3 


STREAM PROCFNURF FILLITCLEN,PORSsCELLSN, ID)? 
VALUE PORS»CELLNS 
BEGIN 
LOCAL, COUNT? 
LABEL MO#M19M2eM3eM4eM5#M6eM7eX4IT3 


STt=L0C PorRSS SlesSI4+33 DI:=LIN3} % "pRTI"™ OR "STACK", 


IF SC="P" THEN 
BEGIN ODS:#3 CHR: DS:abLIT"C™s END 
FLSF BEGIN 


NS:=5 cHR$ Ds:=LIT"C("; Sts=bLOc cells Sisssl+53 
IF Se2"6" THEN nSs=2 LITVF*" FLSF nSs=2 LITMFH"S 


COUNTS=DI3 OFt=L0c CELLS DIt=pr+43 
NSisi1 RESET’ Drt=sCOUNT? 
END} 


Spt=LOc CELLS ST#=S1443 TALLY#=4% % LOCATION, 
3¢I1F Sc="0" THEN % DONT PRINT LEADING ZEROES, 


BEGIN SytsS1413 TALLYS=TALLY+63 END ELSE JUMP OUT)S3 


COUNTS=TALLY? DSts=COUNT CHR? TALLY?#=s03 COUNT#=TALLY3 


pSt=4 LIT") = "$ CELLEsDI} % SAVE OUR PLACE, 


Cy taCleNn3 


END FILLIT: 
BLANKFT¢C14,LIN)Y3 
IF Net THEN FILLITCLIN»PORS»GS,0,ACCUMF1)) 


GO MO} 
GO M13 
GO M23 
GO M33 
GO M43 
gO M53 
gO M63 
GO M7; 
M03 Spe=IDs Sype=St+2s Dys=t0C COUNTS 
. DYs=D14+73 DStsCHRe DpsaCEnt,s OStscoUnT CHR} 
Go XITs 
Mly DIssCELL$ 05:719 LIT**TEMPQRARY STORAGE*"; GO XIT3 
M23 NI:=cELbL; 
N$:536 LIT**L IST» LARELe OR SEGMENT DESCRIPTOR" 
M3t DIS=CELL$ 088227 LIT*cASE STATEMENT DESCRIPTOR*"$3 GO XIT3 
M43 NIS=cELL3 pSs=19 LIT**FORMAT DESCRIPTOR*™: GO XIT; 
M53 DIS=CELL$ 0S?=24 LIT**OUTER BLOCK DESCRIPTOR*"; GO XIT}3 
M63 DIFSCELL3 NSt=20 LIT**SEGMENT DESCRIPTOR"? GO XIT}3 
M78. NTs=cRLL$ nS#=18 LIT*LABEL DESCRIPTOR*"; 
XIT? 


ELSE TF N>4 THEN FrLLITCLIN»PORS»GS,0, INFOCEN,LINKRoN,LINKCI) 


GO XIT}3 


05317000 
05348000 
05319000 
05320000 
05321000 
05322000 
05323000 
05324000 
05325000 
053250410 
05325020 
05325030 


START OF SEGMENT 


05325040 
05325050 
05325060 
05325070 
05325080 
05325090 
05325100 
05325110 
05325120 
05325130 
05325140 
05325150 
05325160 
05325170 
05325180 
05325190 
05325200 
05325210 
05325220 
05325230 
05325240 
05325250 
05325260 
05325270 
05325280 
05325290 
05325300 
05325310 
053275320 
05325330 
05325340 
05325350 
05325360 
05325370 
05325380 
05325390 
05325400 
05325410 
05325420 
05325430 
05325440 
05325450 
05325460 
05325470 
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00038043332 
000330433%2 
000330433%2 
0003!0433%2 
0003:0433:2 
0003:043332 
0003%0433%2 
00033043382 
0003:0433%2 
0003:0433%2 
000310433t2 
0003%0433%2 


4 OE RK 43 


0043:0000!0 
0043!000030 
00438000010 
00432000030 
0043%30000!0 
00432000030 
0043:!0000:1 
0043:000182 
0043:0002:1 
0043300023 1 
00431000420 
0043%0005%3 
004380006314 
0043300072 
00433000732 
00431000733 
00433000834 
004330011382 
0043%0042:0 
004390043:2 
004350014323 
00433004480 
004330014340 
00431001424 
00432001434 
00431004532 
00433004572 
00433004533 
00433004523 
00434003634. 
0043410018:0 
0043:0018:0 
00434002230 
00433002332 
004310028:0 
004310033%2 
00433003712 
00438004133 
00432004532 
00433004884 
004390048t4 
004312004922 
0043:0051:%2 
00438005533 


() O) 
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) 
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—, 


e 
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FLSE FILLITCLIN»sPORS? GS»ABSCN) ON 
IF NOHFADING THEN DATIMES WR 
END WRyTEPRTS3 


3 
ITELINE? 


COMMENT GETSPACE MAKES ASSIGNMENTS To VARIABLES AND DESCRIPTORS In 


THE STACK AND PRT, PERMANENT TELLS WHETHER IT IS A 
PERMANENTLY ASSIGNED CELL CALWAYS IN PRT) OR NOTe NON 
PERMANENT CELLS ARE EITHER IN STACK OR PRT ACCORDING TO 
MODE. CARE IS TAKEN TO REUSE NON PERMANENT PRT CELLS; 


INTEGER PROCEDURE GETSPACECPERMANENT®LO$ VALUE PERMANENT#L$ 


BOOLEAN PERMANENTS INTEGER L3 
RBFGIN LABFL Lish2sexyT; 


STREAM PROCEDURE nOITCeeArysS)? VALUE CoA3 
BFGIN LOCAL N3 
NreSt NS«8 LIT” "3 SyeS# DSe9 WOS3 
Steps SpeSt+2% pnpeLOC Ns DleDr+73 DSeCHR3 
Dr«S3 SyeLOC Cs 2¢DSe4 DEC); 
: Sre]s SpeSl+3% DSeN CHR3 
ENDS 
BOOLEAN MsQ3 
. INTEGER ROWsCOL.GS3 
IF NOTCSTREAMTOG AND CLEVEL>2)) THEN 
IF STEPTSRELOP THEN 


BEGIN 
1F STEPT>IpMaX 
THEN 
BEGIN 
IF ELCLASS=ADOP 
THEN 
IF ELBATELI].ADDRESS=SUBOp 
THEN GS*FZERO ELSE GS«542 
ELSE 


REGIN GSeO;1¢I"1 END: 
IF STPPY#UITNO THEN FLAGC51)3 
TF ELRATCIIJ,ADDRESS2512 THEN GS«1024; 
GS*GS+ELBATCII+ADDRESS 
END 
ELSE 
BEGIN 
GSeELBATC IIe ANnRESS? 
TF GS=O THEN FLAGC51)3 
1F GS2FZERO AND GS€1023 THEN GS+"GS3 
rF STEPIZ#ADOP THEN Jet" ELSE 
BFGIN 
STEPIT} 
GS*¢FLBATCII],ANDRESS+ 
CIF ELBATII71),ADDRESS=SyROP 
THEN =GS €LSE +65)3 
END? 
45«¢ABS¢GS)? 
END# Q¢G@S<542 OR GS>10033 
Go To EXIT 
EnD E,,SE Tel 73 
IF MODE = 9 OR PERMANENT 
THEN BEGIN 
IF PRTIMAX > 1023 THEN FLAG(148)3 
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05325480 
05325490 


05325500 


T 
T 
T 


80 LONG» 


05376000 
053297000 
05378000 
05329000 
05330000 
05331000 
05333000 
05334000 


START OF SEGMENT 


05334100 
05334200 
05334300 
05334400 
05334500 
05334600 
05334700 
05343000 


05344000. 


05344400 
05344500 
05344510 
05344520 
05344530 
05344540 
05344550 
05344560 
05344570 
0534458" 
05344590 
05344600 
05344610 
05344615 
05344620 
05344630 
05344640 
05344650 
05344660 
05344661 
05344662 
05344670 
05344680 
05344690 
05344700 
05344710 
05344720 
05344730 
05344740 
05344750 
05344760 
05344770 
05345000 
05346000 
05347000 
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0043400632 
00433006733 
004310079390 


NEXT SEG- 3 


000330433%2 
00031043332 
0003!0433:2 
00032043332 
0003:043332 
00033043332 
000323043332 
00033043382 


ae KO kk 44 


00441000030 
00441000030 
00441000030 
00447000230 
0044000332 
00443000424 
0044t0005%3 
00443000533 
00443000533 
0044000533 
00443000733 
004430009%2 
0044#0009%3 
00444001080 
0044200,0%4 
O04g4t0041%2 
004430011%2 
00448003183 
00442001332 
00443001533 
00443001680 
00443001834 
0045:0021%2 
00443002323 
00443002430 
00448002533 


00448002533 .~ 


00442002830 
004410020933 
00442003183 
00443003431 
004430037383 
00442003849 
00448003831 
00448003933 
004440041382 
004480044t0 
004H2004480 
004420045%2 
O04nt 004712 
00441004733 
00442004933 
0044:0050t0 
004430051%2 


C) Cy () C) Cy ey - 


‘Ss 


Ch “3 


Cy 90s 3G 


Oy ee we <o 


IF ASTOG THEN FLAGC505)3 

PRT rs 

PRTIMAX#CGS*PRT MAX) 413 

IF STUFFTOG THEN TF (CMeCLEVEL=1 AND KLASSF>19)) OR 
CLEVELZ3 AND ELBATrI}].CLASS=LABELID) THEN BEGIN 

1F NOT M THEN 

NOTTCLABELIDsGS,INFOCCELBATCII),LINKR,» 

CELBATFII,LINKC41)]+TWXALO]) ELSE 

DOITTCKLASSF sGSstNFOLCLASTINE O41), LINKRe CLASTINFO41).LqNKC] 

eTWXALOJIS WRITECSTUFFe 10» TWXAC%)]) END$ END 


ELSE BEGIN 


IF STACKCTR > 767 THEN FLAGC(149)3 
STACKCTR «© (G8 « STACKCTRI+13 Q « FALSE} 
GO TO FXIT END? 


Lat TF GS 2 542 THEN GS « GS410243 
Q « TRUE? 
EXIT? GETSpACE « GS3 


IF GS2NESTCTR AND GSeFZERO THEN NESTCTR+GS+4} 
/ IF GS > 4023 THEN GS « GS"10243 


IF pRTOG THEN WRITEPRTCIF @ THEN "PRT 


" ELSE "STACK"sL»B20(GS))3 


END GETSPacE; 


Rrak PROCFOURE DEPTHCI)$ VALUE I3 REAL I3 


REGIN REAL 


END; 


JeKeTeSoMs 


IF TeNESTPRT¢11<0O THEN 
BEGIN DEPTHecCALLFT,£2281339"1],0635213]3 
IF NESTPRTC1],£2%41320 THEN NESTCUR«NESTCUR413 
NESTPRTcCI),ratile13 
END 
ELSE IF 7,098131740 THEN DEPTHeT,£9313] 
ELSE BEGIN MeO$ NESTPRIL TJ «=T3 
JeT,C22t13y3 KeCALLCJ71),£22213]3 
FOR JeJ STFP 1 UNTIL K DO 
IF SeDEPTHCCALLEU])>M THEN MeS$3 
MeDEPTHeM4CALLET.£C22$133"11,0£35313]73 
IF NeSTcuR40 THEN 
IF NESTPRT¢1],C2:1)=9 THEN ELSE 
BEGIN TeT&MC9#3521333 NESTCUR*NESTCUR@1 END 
ELSE TeT&Mr923534373 
NESTPRT py 4T3 
ENDS 


PROCEDURE NESTSORTCLeU)% VALUE LeUs REAL LeUs FORWARD; 
PROCEDURE SORTNEST3 
BEGIN ARRAY ACO#14]3 


REAL [TedeKeTs 
REAL P»Q3 


STREAM PROCEDURE NESTFORMCTeNeLeAd$ VALUE IeN3 
BFGIN LOCAL 83 


DreAs 15¢00S*8 LrT " "3 

DreLOc St OleDI+73 Steels Sl#Sr+108 DS*CHRE 
DreAt DIeDI4+1s AeDds 

DreDr463 NS* S CHRI 

Dr*A} ST*#LOC Ns DS*4 DECI 


05348000 
05349000 
05350000 
05350100 
05350420 
05350140 
05350160 
05350180 
05350200 
05350300 
05369000 
05370000 
05371000 
05372000 
05373000 
05374000 
05375000 
05375100 
05376000 
05376100 
05378000 
107 LONG 
05400000 
05401000 
START OF SEGMENT 
05402000 
05402100 
05402200 
05402300 
05402400 
05403000 
05404000 
05405000 
05406000 
05407000 
05409000 
05409100 
05409200 
05409300 
05409400 
05409500 
05440000 
05411000 
56 LONG 
05411100 
05412000 
05413000 
START OF SEGMENT 
05414000 
05414100 
05415000 
05416000 
05417000 
05418000 
05419000 
05420000 
05421000 


44 18 


45 1S 


AANA HAHAHAHAHA HH THA HAHAHAHAHA KR Hs A A At A Ht 


Fok OR RE OK 


00443005332 
00448005434 
00448005431 


004430057%2 | 


00441006081 
00441006333 
00441006430 
00441006782 
0044:006933 
0044%007410 
00441007983 
004410080480 
00443008230 
00443008434 
004410085i2 
00441008783 
00441008830 
004468008973 
00448009332 
00443009533 
00441010020 
NEXT SEG 

00031043332 
00033043332 


004520000:0 
00451000230 
00451000732 
00453004132 
00451001440 
00451001410 
00452001680 
00452002074 
0045002630 
0045:0027%2 
00453003431 
0045:004021 
00453004132 
0045%0044:0 
00452004733 
0045'0050:0 
00457005423 
0045'005133 
NEXT SEG 

0003:043332 
0003104332 
000340433182 


AK ROK 4 


004610001283 
00461000133 
00463000133 
00461000183 
0046:0003%2 
0046800052 
0046000610 
0046 t0007%2 
00463000820 


3 


45 


3 


6 


OQ 


Dr\A} 
END: 


NS«3 FILL; 


FOR y*PRTBASFE STEP 1 UNTIL PRTOP no 


Bee ot IF 


NeSTPRTC117#0 THEN 


BEGIN SORTPRT¢Q]e7# QeQ41 ENDS 
NESTSORT (00 Q¢Q"14)3 
FOR P+O STEP 4 UNTIL @ DO 


BEGIN ISo 


RTPRIEPI3 TenESTpRICII)3 


NESTFORMCO*DEPTHC ID INFOCTeLINKRe TeLINKCI2A)3 


WRITE 
JeTal 


CLINEEDBLIJs15#ACeI)3 
9231373 KecALL(Je1),.022:13)3 


FOR JeJ STEP 1 UNTIL K DO 


BEGIN 


ENDS 
WRITE 
ENDS 
END} 


PROCEDURE NESTSORT 
BFGIN REAL 


. LABEL 
tp L# 
BEGIN 


seltsede ane . AGAINE 
: : TOP: 
BOTTOM: 
EXIT? 
ENDS 
ENG} 
bee 7 te : . COMMENY 
COMMENT AEXP 1S 
PROCEDURE AFXP3 
Be itd Se oe xs . E BEGIN 
END A 


COMMENT AR] THSEC COMPILES FIRST PRIMARY IN AN ARITHMETIC EXPRESSION, 


T+CAbLO(J]: 
TeNESTPRIC II; 
NESTFORMC32¢DEPTHCI)*® INFOCT.LINKReTeLINKC I] eA)5 
WRITECLINEs15eACeI)3 


CLINECORLI)3 


cLeU)3 VALUE LeUs REAL LeU$ 
Lede KeM3 


AGAINs TOP,BOTTOM*EXITS 
U THEN 
Me (U+L) ny 23 
NFSTSORT(L,M)3 
NESTSORT(M41,U)3 
PeKeLe JeMe13 
1F I>M THEN GO TO TOPS 
IF J>U THEN GO To BOTTOM: 
GTi *NESTPRICSORTPRILI}.C33215]] .L INK? 
GTOeNESTPRICSORTPRICJI.£33815]]eLINK3 
IF INFOCGTS+LINKRe CGTi+t1) eLINKC]eCl18:30)¢§ 
INFOCGT2eLINKR* CGT241)eLINKC],£18!30) THEN 
GO TO BoTTom3 
SORTPRTICKI,£18:15)]¢SORTPRICIJ]3 
deJdti3 
IF KeK+#1<U THEN GO TO AGAIN ELSE GO TO EXIT3 
SORTPRTICKI,£C18215]«SORTPRTCI];3 
Tel+13 
IF KeK+i<U THEN GO TO AGAIN ELSE GO TO EXIT? 
FOR [*L STeP 4 UNTIL U DO 
SORTPRTCLIJ«SORTPRICIJeC18%15)3 


ROUTINES IN THIS SECTION COMPILE CODE FOR ALL EXPRESSIONS; 


THE ARITHMeTrc EXPRESSION ROUTINES 


IF ELCLASS = IFV 


THEN BEGIN IF TFEXP # ATYPE THEN ERRC102) END 


ELSE BEGIN ARITHSEC3 SIMPARITH END 
EXP} 


05422000 
05423000 
05424000 
05425000 
05425100 
05495200 
05425300 
05425400 
05426000 
05427000 
05428000 
05429000 
05430000 
05430500 
05431000 
05432000 
05433000 
05434000 
05435000 
05436000 
66 LONG 
05437000 
05438000 
START OF SEGMENT 
05439000 
05440000 
05441000 
05442000 
05443000 
05444000 
05445000 
05446000 
05447000 
05448000 
05449000 
05450000 
05451000 
05452000 
05453000 
05454000 
05455000 
05456000 
05457000 
05458000 
05459000 
05460000 
05461000 
46 LONG 
06000000 
06001000 
06002000 
06003000 
06004000 
06005000 
06006000 
06007000 
06008000 


46 1S 


AHA AH AHA HAA AAA Ht Ae HH A A HH tH ts tH 


47 1S 


Se ee ee ee Be 


004610008314 
00461000932 
00461000933 
0046:0011%2 
00463001234 
00463004733 
0046%0019%3 
004610090132 
00461002383 
0046:0028:0 
00463003230 
004630037383 
00463003932 
00463004230 
00463004323 
00463004810 
00463005234 
00463005431 
0046:005831 
00463006132 
NEXT SEG 
0003:0433%2 
0003:043332 


reer ees. 4 


0047:0000!0 
00473000030 
00472000084 
004710003%2 
004730004:0 
00473000533 
00473000830 
0047:0009t9 
00474001034 
0047%0013%2 
0047%0016:0 
004731001932 
0047:0022: 1 
00473002332 
0047!0026:0 
0047%80027:3 
004710030:0 
0047#0033?2 
00473003431 
0047300372 
00473003932 
00478004333 
00473004333 
NEXT SEG 

0003%0433%2 
00031043332 
0003%0433%2 


0003%0433%2 . 


0003%0433%2 
0003%0433%2 
00031043641 
000330438'0 
0003:043810 


3 


7 


3 


IN PARTICULAR IT HANDLES Ps» +P» =P» AND =P*Q WHERE P 
AND Q ARE PRIMARIES} 
PROCEDURE ARITHSEC3 
REGIN 
IF ELCLASS = andoP 
THEN BEGIN 
STEPIT: 
IF ELBATCIT@"1],ADDRESS #4 SUB THEN PRIMARY 
ELSE BFGIN 
PRIMARY3 
ENDTOG ¢« LINKTOG$3 EMyTOCCHS)3 
LINKTOG « ENDTOGS ENDTOG «+ FALSE END END 
. FLSE PRIMARY END ARITHSEC? 
COMMENT SrMPARTTH COMPILES SIMPLE aRYTHMETTC EXPRESSTONS ON THE 
ASSUMPTION THAT AN AR1THMETIC PRIMARY HAS ALREADY BEEN 
COMPILED. IT At,S0 HANDLES THE CASE OF A CONCATENATE 
WHERE ACTUALPARAPART CAUSED THE VARIABLE. ROUTINE To 
COMPILE ONLY PART OF A PRIMARY. MOST OF THE WORK OF 
SIMPARITH IS DONE BY ARITHCOMPs AN ARTIFIAL ROUTINE 
WHICH DOES THE HIERARCHY ANALYSIS USING RECURSION, 
ARITHCOMP IS A SUBROUTINE ONLY TO GET THIS RECURSION} 
PROCEDURE STMPARITH3 
BEGIN 
WHILE ELCLASS = AMPERSAND 
nO BEGIN STEPIT$’ PRIMARY: PARSE END? 
WHILE ELCLASS 2 EQVOP NO ARITHCOMP END}; 
COMMENT ARTTHCOMP 1S THE GUTS OF THE ARITHMETIC EXPRESSION ROUTINE 
ANALYSIS. JT CALLS PRIMARY AT APPROPRYATE TIMES AND 
EMITS THE ARITHMETIC OPERATORS, THE HIERARCHY ANALYSYSS 
1S OBTAINED BY RECURS]ON?3 
PROCEDURE ARYTHCOMP; 
BEGIN INTEGER OPERATOR» OPCLASS3 


DO BEGIN 
OPERATOR « 4 & ELBATE1I] €36:17210)3 
COMMENT THIS SETS UP THE OPERATOR WHICH WILL BE EMITTED, THE HIGH 
ORDER TEN BITS OF THE OPERATOR ARE LOCATED IN C147%10]7 
OF THE ELBAT WORD; 
OPCLASS « ELCLASS3 
STEPIT? PRIMARY? 
BEGIN 
WHILE OPCLASS < ELCLASS Do ARITHCOMP? 
COMMENT THE CLASSES ARE ARRANGED IN ORDER OF HIERARCHY} 
EMITCOPERATOR); 
EMITCO)s; L «© Led3 
STACKCT ¢ 13 
END3 
END UNTIL OPCLASS # FLCLASS END ARITHCOMP} 


INTFGFR PROCEDURE EXPRSS3 BEGIN AEXPS EXPRSS «© ATYPE END} 
PROCEDURE POLISHERCEXPECT)$ VALUE FXPECT$ REAL EXPECT3 
REGIN LABFL EXITS 


LABEL ELI 
REAL COUNT+ Tis T23 
BOOLFAN Ss 


REAL SSS3 INTEGER Z3 


START OF 


48 IS 


START OF 


06009000 
06010000 
06011000 
06012000 
06013000 
06014000 
06045000 
06016000 
06017000 
06018000 
06021000 
06022000 
06023000 
06024000 
06025000 
06096000 
06027000 
06028000 
06029000 
06030000 
06031000 
06032000 
06033000 
06034000 
06035000 
06036000 
06037000 
06038000 
06039000 
06040000 
06041000 
06042000 

SEGMENT 
06043000 
06044000 
06045000 
06046000 
06047000 
06048000 
06049000 
06051000 
06052000 
06053000 
06054000 
06054100 
06054150 
06054200 
06055000 


14 LONG 


06057000 
06060000 
06061000 

SEGMENT 
06061900 
06062000 
06063000 
06063500 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


T 
* 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
is 
’ 
T 
T 
T 
* 
T 
T 
T 
T 


0003%0438:0 
00033043830 
0003!'0438:0 
000380438:0 
000310438:0 
00038043932 
00031044070 
00038044034 
00033044332 
0003:0444:0 
0003t04g4t1 
00032044620 
00038044733 
0003s 0449i2 
0003:0449%90 
0003%04n9t2 
00038044982 
0003%0449%2 
00032044932 
00038044922 
00033044982 
00032044932 
000372044982 
0003704492 
00033044932 
0003:0452:0 
00031045533 
0003:04553:3 
00032045533 
00033045583 
00032045533 
00031045523 


EET Tis: 48 


0048%0000:0 
0048:0000:0 
00483000230 
004823000230 
0048000230 
0048000230 
0048!0002%4 
00484000343 
00432000383 


- 004384000680 


0048!0006:0 
0048%0007%2 
0048300092 
00483000983 
00481000933 


NEXT SEG 3 - 


00032045533 
000380459%2 
00032045932. 


ak RR IO K 49 


00494000030 
0049000010 
0049%0000:0 
00498000030 


Cys 4. 6Cy 264 


é 


Ge Ge 4 


Cro 1. 3) 


amt 


O 


i) 


STREAM PROCEDURE WRITEOUTCCONeLIS VALUE CoN 
BEGIN Dy « L3 DS « 2 LIT "Sa 
St « £Oc C3 Sy «© Sq+73 DS © CHR 
St « LOC N? DS « DEC} 
58 ¢OS.aLtt nw WB 
END3 
SSSe STACKCTR: 
IF STEP] # LEFTPAREN THEN GO TO EXIT3 
Do BEGIN 
IF STEP] 2 OPERATORS THEN 
BEGIN Ti ¢ C(T2 * ELBATCII])«ADDRESS3 
S «¢ S OR COUNT = T2,f1123) < 03 
COUNT «© T2eli4s2)4+COUNT?23 
IF ELCLASS 2 OPERATOR THEN 
BEGIN IF Ti # 0 THEN EMITOCT1I) 
FLSE BEGIN 
Ti «© T2,LINK+23 
T2 « T2,1NCR+T13 
FOR Ti ¢« Ti STEP 1 UNTIL T2 50 
EMITCTAKECT1293 
ENDS 
END ELSE BEGIN T2@ « ELCLASS: 
1F STEP] # LITNO THEN 
BEGIN ERRC500)3 GO TO EXIT FND; 
IF T2 = BITOP THEN EMITCT1I&C 
{[36:42:6)) ELSE 
tF T2 = HEXOP THEN EMITCTI& 
(T2260 DIV 6IL36845F 37k CC#T2K6) 
139%45:3]) ELSE 
1fF T2 = JSOLATE THEN 
BEGIN To « C 
IF STEPI # LITNO 
THEN BEGIN ERR(500)3 
GO TO EXIT END 


EMITCZeCCT24+C@1)01V 67°C DIV 
641)x5124+C4B"T2*C MON 6x64+ 
37)3 
END END? 
STEPITS 
S « § OR COUNT « O3 
END ELSF BEGIN 
1F ELCLASS = LABELIO THEN 
BFGIN T1#=s23 
rLS GT4 ¢ TAKECT2*GITCELBAT( 11993 
PUT(LaT2)3 
IF GT4 = 0 THEN GT4 « Li 
IF (GT4tab=ql4)p1v 4 2 128 THEN 
BEGIN GT4?sO3FLAGC50)3END3 
EMIT(GT4x44+T1)3 
STEP LT3 
EnD ELSE 
IF ELCLASS # PERIOD THEN AEXP ELSE BEGIN 
T2¢03 
IF STEPISPERION THEN 


06064000 
06065000 
06066000 
06067000 
06067500 
06068000 
06068500 
06069000 
06070000 
06071000 
06072000 
06074000 
06075000 
06076000 
06077000 
06078000 
06079000 
06080000 
06081000 
06082000 
06083000 
06084000 
06085000 
06086000 
06087000 
06088000 
06089000 
06090000 
06091000 
06092000 
06093000 
06094000 
06095000 
06096000 
06097000 
06098000 
06099000 
06099100 
06099200 
06100000 
06101000 
06102000 
06103000 
06104000 
064104100 
06104200 
06104300 
06404400 
06104500 
06104540 
06404520 
06404600 
06404700 
06404800 
06105000 
06106000 
06106100 


AHAB AAA AAA AHA AA HA AAA AAA HH AAA HH AAA A AH AAT AAA HH AHH TIS 


0049:0000!0 
00492000030 
004928000024 
004980003583 
00498000230 
0049800032 
0049400032 
OO49F 0004S 1 
00491000630 
0049%0007!2 
00494000810 
00493001031 
00492001332 
00494001533 
004920016:0 
00491001880 
004920019%2 
00491002182 
0049:002234 
00492002430 
00498002733 
00493002733 
00491002831 
00493002933 
00498003133 
004914003322 
004910034814 
00492003634 
00493003933 
0049%0041°2 
00494004220 
00491004353 
0049:0044:0 


00497004533. 


0049004630 
0049%'0046:0 
00498004620 
0049'0046:0 
00492004831 


- 00493005231 


00492005430 
00493005430 
0049800541 
00492005630 
0049300563 1 
00492005733 
00492005831 
00493006183 
00493006231 
00493006434 
00491006634 
004912006824 
00492007084 
0049%0071%2 
0049%0071%2 
00492007333 
OO498 0074714 


{) 


3 


O 


o 


EXITS 


BEGIN T2e13 STEPIT END: 
IF ELCLASS>IDMAX THEN 
BEGIN ERR(500)3 GO TO EXIT ENN} 
IF ELCLASS = LABELID THEN 
BEGIN Ti « OF GO TO EL ENDS3 
1F T1 + ELBATCTII,ADDRESS = O THEN 
BrGIN ERR(100)3 GQ TO EXIT ENDS 
EMITL¢T1)3 
tF 171274023 THEN 
1F T2s0THEN FLAG(500) 
FLSE EMITOCPRTE)3 
STEPIT3 
FNns COUNT «© COUNT413 
FNp3 


END UNTIL ELCLASS # COMMA} 
IF ELCLASS # RTPAREN THEN 
BEGIN ERR¢404)3 GO TO EXIT END3 


STEPIT? 


IF FALSE THEN 
BEGIN COUNT « COUNT@EXPECT? 
WRITEQUTCIF COUNT < O THEN “et ELSE 


END 


STACKCTR « SSS3 


PROCEDURE PRIMARY} 


L32: 


BEGIN LABEL 


Lis L2s 
Lites L112» 
L2le L22» 
L3te 1.32» 


SWITCH S « 


Lise 2» 

Lite Lids 
L2ls L22e 
L3i* L32s 


IF COUNT = 0 THEN * " ELSE 4t, 
ABSCCOUNT)+LINI01)3 


WRITELINES 


35 

Li3s 
U23e 
L33» 


L 3» 
Lids 
L239 
L433» 


END} 


L4e LS» L6, 7. L8>» L9-e L100» 
L114» Lids L165 Lives L1i8>» Lt9e L206 
L245 L255 L262 L27s L28s L29s L30, 
L342 L352 L360 L37s L38> L393 


L45 L5s b6s L7se Loe L9e Lids 
L14x LiS» Li6s Liv> Libs Lite L20. 
L24» Le5» L260 LO7s L228 L229» L30e 
L349 L35» L36» L37*" L38s 1,393 


LABEL EXIT#*RPsLpOT»LAMPER3 
Go To SLELCLASS}3 
IF ELCLASS = LFTBRKET THEN 
BEGIN STEPITs VARIABLECFL)3 
IF ELCLASS # RTBRKET THEN 


END? 


TF ELCLASS 


END? 


IF ELCLASS 
LithL2s,3:LosLorLos_LSBrL9OtLyOsLiSiLizssLiGsLi7tL20rL2LsLeaa4tLessL2eELeg3 


ERRC103)3 


BEGIN ERRC118)3 Go To EXIT END; 


STEPITS 
GO TO LpOoT3 


= NOTOP THEN 

BEGIN STEPITs PRIMARY? 
EMITLNGs3 EMYTCO)3 LeLei3 
GO TO EXIT 


= UNKNOWNID THEN ERRC100)3 


GO TO EXIT; 


06106200 
06106300 
06107000 
06107100 
06107200 
06108000 
06109000 
06110000 
06110400 
06110200 
06110300 
06411000 
06112000 
06413000 
06414000 
06415000 
06116000 
06417000 
06118000 
06119000 
06120000 
06121000 
06422000 
06123000 
06124000 
06125000 
49 18 120 LONG 
06126000 
06127000 
START OF SEGMENT 
06128000 
06129000 
06130000 
06431000 
06132000 
06133000 
06434000 
06135000 
06136000 
06437000 
06438000 
06139000 
06140000 
06141000 
06142000 
06143000 
06144000 
06145000 
06146000 
06147000 
06448000 
06149000 
06150000 
06151000 
06452000 
06453000 
06154000 


A a ss st as st A A HA A A A TAA AAA HHH 


ORK AOR EK 


0049:0075:3 
0049:007722 
004920078380 
00493007933 
00492008031 
004930082:0 
0049:0084:0 
0049300860 
0049%0086!4 
00491200873 3 
00493008933 
00493009;4i2 
00493009133 
00492009332 
00498009332 
0049:0094:0 
00498009532 
0049:0096?4 
00498009722 
0049200978 3 
0049%0099%2 
00493010133 
004980103:3 
00497010582 
00498011532 
00493011582 
NEXT SEG 

00033045932 
00033045932 


00503000080 
0050:0000!0 
0050:0000:0 
0050!0000:%0 
0050%0000:0 
0050:000231 
0050:0002:1 
0050000231 
00502000231 
005080022214 
00503002221 
0050%0025%e2 
0050?0025%3 
00508002733 
0050:0028:0 
005030030:0 
0050:0030?4 
0050:0031:2 
0050430031%2 
00503003123 
0050:30033:2 
0050003533 
00503003630 
005040036:0 
0050:0038:0 
0050:0039%2 
00503003922 


3 


50 


Cy 


i O ~ 


Go. a” 


Cos “Ey se AE Se Hs 2) 


2 ae ©, 


O 


L73 
SUBHANDCFALSE)? GO TO LpOT; 
Lit: 
IMPFUNS STACKCT * STAcKCT*13 GO TO LpOTs 
Li4tLis: 
STRMPROCSTMT$ GO TO LpOT3 
Li8:Lig: 
PROCSTMTCFALSE)3 GO To LODOTS 
L?23L23*La6iLe7iL3o0tt3y 
VARITABLECFP)$ GO TO LAMPER3 
L33%L35! 
EMITCORELBATEIJ] €36%17210))3 STEPIT$ GO TO LAMPERS 
L34¢L36: 
EMITNUMCC)$ STEPIT’ GO TO LAMPER} 
L38t 
POLISHERC1)$ GO To LDOT: 
L398 
STEP1T$ PRIMARY: STACKCT © STACKCT™1$3 
EMrTOcLOD)® gO TO LOOT; 
L373 
STEP1T# AEXP3 
STACKCT « STACKCT#=13 
IF ELCLASS # RTPAREN THEN 
BEGIN ERR(104)% gO TO EXYT END? 
STEPYT3 
LDOTIDOTS 
LAMPER3 
STACKCT «© STACKCT +143 
WHILE ELCLASS = AMPERSAND Do 
BEGIN STEPIT: PRIMARY’ PARSE END3 
EXIT: END PRIMARY; 


PROCEDIRE IMPFUNS 
RFGIN REAL TleT23 


Ti © (T2 © ELRBATEI).ANDRESS? 

PaNas 

1p T1 # 0 THEN FMyTOCTI) 
FLSE BEGIN 
Ti « T2,LINK+T2,1NCR+13 
T2 ¢ T2,LINK+23 
FOR T2 « T2 STEP 1 UNTIL T41 DO EMITCTAKECT2))3 
ENDS 

END3 


PROCEDURE SUBHAND¢FROM)# VALUE FROM? BOOLEAN FROMS 
BFGIN LABFL EX]T3 


REAL T13 

Ty « TAKEFRST3 

TF ELCLASS # SUBID AND FROM THEN 

BEGIN IF STEP] # ASSIGNOP THEN 

BEGIN FLAGC5039% Go To EXIT END? 
STEPITS 
AEXP3 
EMITOCXCH)$ 
GO TO EXIT3 


50 Is 


START OF 


51 15 


START OF 


06155000 
06156000 
06157000 
06158000 
06159000 
06160000 
06161000 
06162000 
06463000 
06164000 
06165000 
06166000 
06167000 
06168000 
06169000 
06170000 
06171000 
06172000 
06172500 
06473000 
06174000 
06174500 
06175000 
06176000 
06477000 
06478000 
06479000 
06179500 
06180000 
06181000 
06182000 


76 LONG 


06183000 
06184000 

SEGMENT 
06185000 
06186000 
06187000 
06188000 
06189000 
06190000 
06191000 
06192000 
06193000 


17 LONG 


06194000 
06195000 

SEGMENT 
06196000 
06497000 
06198000 
06199000 
06200000 
06201000 
06202000 
06203000 
06704000 


AHHH HHH HH RA HHA HAHA Ye HHA HHA HA TAH A HA AH A HS 


eo ORK 


0050:0040:0 
0050#0041:2 
0050:0042:0 
00503004332 
0050:0045!2 
00502004630 
00503004732 
00503004732 
0050300480 
005030049%2 
00502005020 
0050:10051:2 
0050!0054%0 
0050005430 
00503005533 
0050:0056:0 
0050:0057:2 
0050%0058:0 
0050:006030 
0050006133 
00503006220 
0050!0063%2 
0050:0064:0 
0050!0065%2 
0050200663 t 
00508006732 
00503006834 
005020069%2 
00503007030 
0050:0072!0 
00503007430 
NEXT SEG 
00031045932 
00033045932 


oe Rk OK ak 5 


00513000020 
0051000230 
0051:000231 
0054000430 
0051000532 
00513000783 
00512000933 
00513001431 
0051°0014%4 
NEXT SEG 

00032045982 
00033045932 


005230000:0 
0052%0000:0 
0052#0001%2 
0052*0002%0 
0052*0003%3 
0052%30005?3 
-005240006:0 
0052:000631 
00523000732 


3 


4 


3 


52 


won, 


(3 


PND? 
FMITLCOCL+6) pIV 4=CT1,02421219°1) DIV 4)3 
EMITRCBRW»eBUMPL4T1.036%12])3 
STEPIT3 
AnJUuST3 
EXITs FND SUBHANO? 


COMMENT TFEXP COMPTLES CONDITIONAL EXPRESSIONS, rT REPORTS THE TYPE 
OF EXPRESSIONS aS EXPRSS REPORTS; 

INTEGER PROCEDURE JFEXP 
BEGIN INTEGER TYPE» THENBRANCHsELSEBRANCHS 


06205000 
06206000 
06207000 
06208000 
06208500 
06209000 
3? 1S 19 LONG 
06292000 
06293000 
06994000 
06295000 

START OF SEGMENT 


0052000733 
00528000733 
00528004133 
00522001430 
005250014814 
00524001532 
NEXT SEG 
0003%0459%2 
000330459380 
0003:0459%2 
000380459890 
aOR ORO 5 


3 


3 


TFCLAUSES 
STACKCT « 03 
THENBRANCH « BUMPL3 
COMMENT SAVE L FOR LATER FIXUP} 


IFEXP « TYPE « EXPRSS# COMMENT COMPILE 145T EXPRSS?3 


STACKCT « 03 
FLSEBRANCH « BUMPL3 
EMITBC BFC» THENBRANCH?L)$ 


IF ELCLASS # ELSEV THEN ERRC155) ELSE BEGIN 


STEPITS 
AEXP; STACKCT © 13 


COMMENT THIS COMPILES PROPER TYPE SECOND EXPRSS$ 


EMITBCBFWeELSEBRANCH®L)3 
FMITC1); L ¢« Lvs 
COMMENT THIS IS USED BY EMITLNG TO CLEANUP CODE. 
ROOSEC» BOOCOMP, AND RELATION? 
END END ITFEXPS 


COMMENT PARSE COMPILES CODE FOR THr CONCATENATES 
PROCEDURE PARSF3 
REGIN INTEGER FIRST»SFCONDs THIRD? 


LABEL EXTTsNEXTCHK? 
TF ELCLASS = FIELNIN THEN 
BEGIN 
FIRST t= ELBATCLI1,.SBITFS 
SECOND t= 48 = ¢(THLERD t= ELBATr I] NBITF)3 
GO To NEXTCHK$ 
END 
ELSE 
IF ELCLASS = LFTBRKET THEN 
IF STEP! = FIELDID THEN 
REGIN 
FIRST :3 ELBATCI)«SBITFS 
SECOND = 48 = CTHIRD := ELBATCIIeNBITF)3 
IF STEP! # RTBRKET THEN 
BEGIN 
ERRC94)3 
GO TO EXIT; 


END} 
GO TO NFXTCHK3 
END 
ELSE 
IF ELCUASS = LITNO THEN 
IF STEP] = COLON THEN 


COMPARE WITH 


Z107# 
ZiL2= 


33 1S 


06296000 
06296500 
06297000 
06298000 
06299000 
06299500 
06300000 
06301000 
06302000 
06303000 
06305000 
06306000 
06307000 
06308000 
06309000 
06310000 
06311000 


19 LONG 


06312000 
06313000 
06314000 


START OF SEGMENT 


e120. 


eii2= 
2112" 
e112" 
2112" 
112" 


aite= 
aii2= 
4112" 
ee 
e112" 
ai1e~ 
a112= 
%112= 
e112= 
4112= 
eite- 
ai12~ 
aij2= 


06315000 
06315100 
06345200 
06345300 
06345400 
06315500 
06315600 
06315700 
06316000 
06316100 
06316200 
06316300 
06316400 
06316500 
06316600 
06316700 
06316800 
06316900 
06317000 
06317100 
06317200 
06317300 
06318000 


HAHAH HHATDH HAHAHA Ae HH 


AMWONIWUVAOVWAYMNANYMNAAMIMANAMNONOONA CRE AHA 


0053#0000:0 
00538000084 
00532000182 
0053:0003%2 
005310003%2 
00533000431 
0053#0005%2 
00537000732 
0053300080 


00534001031 - 


0053%0011:2 
0053:0012%1 
0053%001231 
0053:0013:3 
00532001533 
00531001533 
0053#001533 


NEXT SEG 3 


00032045932 
0003:0459%2 
0003:0459%2 


Se a RK 54 


0054:000030 
0054:0000:30 
0054:000024 
0054:0001:2 
0054:000084 
0054:0005%2 
0054?000533 
00541000533 
00543000533 
0054:0007:2 
0054:000631 
0054:0009%2 
0054:0010%1 
0054:0043?2 
00548001420 
005430013484 
0054:0015!2 
00541001533 
00543004533 
00543001630 
00543001630 
00543001630 
0054:00173%3 


C) 


fon 


O 


17 


1 


O 


Forms, lnc. s+ 


O 


ro Dusiness 


Bhoo 


oe © OQ 


O 


Os © 


Cr te © 


O 


O 


IF STEP? = LYTNO THEN 
IF STEPI = RTBRKET THEN @ WE WILL TAKE CARE OF THE RES 


IF CFIRST ts ELRATCI™3],ADDRESS) x ¥107« 

CTHIRD t= ELRATCI“1),ADDRESS) # O THEN ¥107= 

BEGIN ¥107= 
SECOND t= 48 = THIRD? x SOURCE JS RIGHT yUST, 

GO TO NEXTCHKS ¥107= 

END 4107" 

FLSE % BAD BITS, FALL THROUGH TO ERROR,» %107= 

EI.SE % MAYBE A COLON, %107° 

IF ELCLASS = COLON THEN 8% %107* 


IF STEP] = LITNO THEN 
IF STEP] = RTBRKET THEN 
COMMENT IF TEST ARE PASSED THEN SYNTAX 1S CORRECT? 
IF CFIRST ©¢ ELBATELI"57,ADDRESS) x 
(SECOND « ELBATCI™3].ADDRESS) x 
CTHIRD «© ELBATLI71].ADDRESS) # O THEN 
IF FIRST + THIRD < 48 THEN &% SO FAR SO GOOD, ¥107= 
JF SECOND+ THIRD $ 48 THEN 
COMMENT {F TEST ARE PASSED THEN RANGES OF LITERALS ARE 0.K,3 
BEGIN 
STEPIT3 
EMITO¢CSECONDoFIRSTs THIRD) 3 
STACKCT « 13 
G9 TO FXyT ENDS 
ERRC113)s COMMENT ERROR |F SYNTAX OR RANGE FATLS3 
EXIT: END PARSE 


NEXTCHK: 


COMMENT DOT COMPILES CODE FOR PARTYAL, WORD DESIGNATORS» EXCEPT FOR 
THOSE CASES HANDLED BY THE VARIABLE ROUTINE? 


-PROCEDURE DOT? 


BEGIN INTEGER FIrRST»SFCOND’ LABEL EXIT3 


IF ELCLASS = PERIOD THEN BEGIN 
IF DOTSYNTAXCFIRST»®SECOND) THEN GO TO EXITS 


EMITICOsFIRSTeSFCOND)$ 
STEPIT3 
EXIT? FND END pots 


PROCEDURE TFCLAUSES 
BEGIN STEPIT$ BrXP? 
IF ELCLASS # THENY THEN ERRCL16)ELSE STEPIT END IFCLAUS3 
COMMENT PANA COMPILES THE CONSTRUCT: (<ARIT, FXP,>)3 


. PROCEDURE PANA3 


BEGIN 
TF STEP] # LEFTPAREN THEN ERRC105) 
ELSE BEGIN STEPITS AEXPs IF ELCLASS # RTPAREN THEN 
FRR¢1O4) ELSE STEPIT END END PANA3 
COMMENT BANA COMPILES THE CoNSTRUCT!: [«<ARITH, EXP,>]3 


-PROCEDURE BANAS 


BEGIN 
IF STEPTt # LFTBRKET THEN ERR(117) 
FLSE BEGIN STEPIT$ AEXP$S IF ELCLASS # RTBRKET THEN 
ERRC€118) ELSE STEPIT END END BANA : 
COMMENT THIS SECTION CONTAINS THE STATEMENT ROUTINES$ 


54 18 


START OF SEGMENT 


55 1S 


06319000 
06320000 
06320100 
06320200 
06320300 
06320400 
06320500 
06320600 
06320700 
06320800 
06320900 
06321000 
06322000 
06323000 
06324000 
06325000 
06326000 
06327000 
06328000 
06329000 
06330000 
06331000 
06332000 
06332500 
06333000 
06334000 
06335000 
54 LONG 
06336000 
06337000 
06338000 
06339000 


06340000 
06341000 
06342000 
06343000 
06344000 
06345000 
06346000 

8 LONG 
06409000 
06410000 
06411000 
06442000 
06443000 
06444000 
06415000 
06416000 
06417000 
06418000 
06419000 
06420000 
06421000 
06422000 
06423000 
07000000 


AHA HRA AHR ATA AHH! HA He GAY HAA A OH AHH DINO DDNM OD DES 


ORI I OK 


0054300193 2- 


0054:0020:1 
0054!0022:0 
00543002434 
005410097: 2 
00542009733 
0054:0009%90 
005430090933 
0054:00293:3 
0054!'002093%3 
0054:0030!0 
0054:003132 
0054:0032:4 
00542003430 
0054!0034:0 
0054:003634 
00542003932 
0054:0041%3 
00542004430 
00542004620 
00542004630 


- 00542004684 


0054:0047%2 
0054:0048:30 
0054:004930 
005440049%3 
00543005030 
NEXT SEG 
00033045989 
0003%0459%0 
00038045932 
0003:0459:0 


3 


55 


0055'0000:0- 


0055:0001?2 
0055%0003%2 
0055!00033%2 
0055:000332 
0055:0004:0 
0055:000424 
NEXT SEG 

0003:0459%2 


3 


0003:045982. 


0003:0461:2 
00033046430 
0003:0464:0 
00033046430 
0003!0464:0 
00033046634 
00032046933 
0003'0472%0 


00033047280 - 


00033047230 
000330472:0 
00033047333 
0003:047631 


0003:0479%2 


(8 


O 


é. 


CO 


COMMENT COMPOUNDTATL COMPILES COMPOUNDTAILS,. 


IT ALSO ELIMINATES 
COMMENTS FOLLOWING ENDS. AFTER ANY ERROR» ERROR MESSAGES 
ARE SUPPRESSED. COMPOUNDTAIL IS PARTIALLY RESPONSIALE 
FOR RESTORING THE ABILITY TO WRITE ERROR MESSAGES,. SOME 
CARE 1S ALSO TAKEN TO PREVENT READING BEYOND THE "END, "3 


PROCEDURE cCOMPOUNDTAYL3 


- ANOTHER? 


FLAG (€1270)3 


FCRi= (LCR®=MKARSCTRUFFI91))=9 


BEGIN LABEL ANOTHER: 


J « 1*13 BEGINCTR ¢ BEGINCTR#+13 
ERRORTOG « TRUE? COMMENT ALLOW ERROR MESSAGES3 
STEPIT? 
IF STREAMTOG THEN STREAMSTMT ELSE STMT3 
IF FLCLASS = SEMICOLON THEN GO TO ANOTHER? 
IF ELCLASS # ENDV 
THEN BEGIN 
ERR(119)3 GO TO ANOTHER END? 
ENDTOG+TRUE} 
NO STOPDEFINE*+TRUF UNTIL 
STEPISENDV AND ELCLASS2UNTILV 
OR NOT ENDTOG: 
ENDTOG+FALSE3 
IF BEGINCTR « BEGINCTR=1 # 0 EQV ELCLASS = PERIOD 
THEN BEGIN 
IF BEGINCTR = © THEN 
BEGIN FLAGC143)3 BEGINCTR « 13 GO ANOTHER ENDS 


Z104" 
FCR3= C(LCRE=MKABSCCRUFFL9II)9"93 %104= 
IF LISTER THEN PRINTCARD; %104= 
END; ¥104e 

IF ELCLASS = PERTOD THEN 


REAL AXNUM3 


BEGIN 
GT5 « "NDS END "AME. ta3gs5yz3 
MOVEC1*GT5*CBUFF(O])} 
LASTUSED«43 
ELBATrle]"™2) «+SPECIALL20}3 
ELCLASS « SeFMy]COLON END 
END COMPOUNDTAIL# 


PROCEDURE ACTUALPARAPARTCSBIT»1NDEX)3 VALUE SRITs INDEX? 
ROOLEAN SBrT? REAL INDEX? 
BEGIN LABEL EXITsCOMMONs ANOTHER? POL 3 


REAL PCTR»SCLASS*#ACLASSS 


STREAM PROCEDURE WRITEAXC(CLINE* ACCUM*N*eSEQ)3 VALUE N3 
BEGIN DI « LINE? 15¢p8 « 8 LIT ™ "93 


FND? 


ANOTHER? 


Dr «+ LINES Sy «+ SEQs ST © Sy"163 DS « WDS;3 

Nt «© DI+43 DS « 20 LIT "ACCIDENTAL ENTRY AT "3 
SI «© ACCUM$ St * SJ+#33 DS « N CHR3 

St « SEQ? DI « SEQ? DI « DI"163 pS «+ WDS3 


BOOLFAN VBITs»TIDRIT3 

PCTR « 43 

ACLASS ¢« STEPTROLA7TIA7I193 
STACKCT « 03 

GT1 « TAKECINDEX+PCTR)3 
VBIT « BOOLEAN(GTy,VO)$ 


07001000 
07002000 
07003000 
07004000 
07005000 
07006000 
07007000 


START OF SEGMENT 


36 1S 


07008000 
07009000 
07030000 
07011000 
07012000 
07043000 
07014000 
07015000 
07016000 
07017000 
07018000 
07049000 
07020000 
07021000 
07072000 
07023000 
07024000 
07025000 
07025010 
07025020 
07025030 
07026000 
07027000 
07028000 
07029000 
07030000 
07031000 
07032000 
07033000 


55 LONG 


07034000 
07035000 
07036000 
07037000 


START OF SEGMENT 


07038000 
07038100 
07038200 
07038300 
07038400 
07038500 
07038600 
07038700 
07039000 
07040000 
07041000 
07041200 
07042000 
07043000 


i 


AA ATH TR AHA AHA BHAA HHH HAH HHO WHA A ta a i 


0003:0479%2 
0003:047932 
0003:0479%2 


00033047922 . 


0003:0479%2 
0003:0479%2 
0003:0479%90 


ROR ROOK 5 


0056300000 
005670002314 
0056!0003%3 
0056:0004:30 
0056000621 
0056°'0007%3 
0056?000830 
00563000932 
0056'001030 
0056:001132 
0056:004133 
0056:0043%2 
0056'0045%2 
0056!001533 
00562001733 
00562004982 
005630019k3 
00562002210 
0056:00203%2 
0056:30026:0 
0056:004230 
0056:0045i2 
0056:0045:3 
0056:0046!0 
00567004830 
0056:004933 
0056:0050:0 
0056005234 
005630053:3 
NEXT SEG 
0003:0479%9 
0003:0479%2 
0003:0479i2 
00033047912 


FOO 5 


005710000!0 
00571000030 
005710000:0 
00574000230 
00571000332 
00571000630 
0057:0007#2 
00571000830 
0057:0008!0 
00573000830 
00571000933 
00570042:0 
00572004294 
00573004494 


6 


3 


7 


Cy 
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‘e 
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O 


Q 


) 


O O 


O 


POLS 


SCLASS ¢« GT1,CLASS&0( 4724734173 
IF VBrT THEN BEGIN AEXP$ GO TO COMMON END; 
IF SBTT THEN SCLASS «+ NAMEID} 
IDRIT «+ BOOID < ACLASS AND ACLASS «< LABELIO3 
IF SCLASS = NAMEID THEN 
BEGIN 
IF IDBIT THEN VARIABLECFL) 
ELSE 
IF ELCLASS = POLISHV THEN POLISHER(1) 
ELSE ERRCIF ELCLASSS0 THEN O ELSE 123)3 
GO TO COMMON; 
ENDS 
IF SCLASS = REALARRAYID THEN 
IF ACLASS = REALARRAYID THEN 
BEGIN VARIABLECFLI3 GO TO COMMON END 
FLSE GO TO POL: 
Ir SCLASS # REALID THEN 
BFGIN FLAG(303)3 
AEXP3; 
ERRORTOG « TRUE} 
GO TO COMMON: 
ENDS 
GTi «© TABLECrT+193 
IF GT1 = COMMA OR GT1 = RTPAREN THEN 
BEGIN IF InBrTl THEN 
BEGIN 1F ACLASS = REALID AND 
BOOLEANCELBATCIJ.FORMALITHEN. REGIN 
CHECKER CELBATLIIJ23 
EMITPAIRCELBATCIIJ.ADDRESS»L00)3 
STEPIT3 END 
ELSE VARIABLECFL)3 
GO TO COMMON END; 
IF ELCLASS ¢< STRNGCON AND ELCLASS >? LABELID 
THEN BEGIN PRIMARY? GO TO COMMON END; 
END: 
EMITOCNOP)? EMITOCNOP)3 
SCLASS ¢« L3 
ADJUSTS 
ACLASS © Lel36210]3 
IF InrRiT THEN 
BEGIN VARIABLECFL)3 
IF ELCLASS « AMPERSAND THEN GO TO COMMON; 


SIMPARI 
END ELSE AFX 
IF LISTER THEN 
BEGIN AccUMC1] «+ 43 
WRITEAX(CLINGOJsACCUME11-Q0,712%6]5 
INFOCLASTSEQROWsLASTSEQUENCEJ)3 
WRITELINES 
ENDS 
AXNUM « AXNUM413 
EMITOCRTS)é 
EMITBCBFWsSCLASSoL)3 
EMUTNUMCACLASS)$ 
EMITPAIRCTAKECPROINFO) sADDRESS+L0D)3 
EMITOCINX)3 


THE 
Ps 


07044000 
07045000 


07046000 
07047000 
07048000 
07049000 
07050000 
07051000 
07052000 
07053000 
07054000 
07055000 
07056000 
07057000 
07058000 
07059000 
07060000 
07061000 
07062000 
07063000 
07064000 
07065000 
07066000 
07067000 
07068000 
07069000 
07070000 
07070500 
07071000 
07077000 
07073000 
07074000 
07075000 
07076000 
07077000 
07078000 
07079000 
07080000 
07081000 
07082000 
07083000 
07084000 
07084500 
07085000 
07086000 
07086100 
07086200 
07086300 
07086400 
07086500 
07086600 
07086700 
07087000 
07088000 
07089000 
07090000 
07091000 


AHHH HARHH AHH HAHAHAHA AAR AHA SHAH AA Ht HT A A A HH tt tt tH 


0057004523 
005730048:0 
00573004983 
005730020432 
0057#0093?3 
00573002430 
0057!0024?3 
0057!002533 
0057'0026?0 
0057300283 4 
0057!0032%0 
0057300323 1 
0057:0032?1 
00572003333 
0057#003484 
0057!0036%4 
00573003631 
0057200372 
0057300368? 4 
00571003932 
005730039%3 
00571004030 
00572004030 
00573004230 
0057300433 3 
00572004484 
00575004583 
00572004723 
0057:0048!4 
0057#0050:0 
0057#0050%1 
0057:0052:0 
005720052? 1 
00572005333 
00573005533 
005730055:3 


0057200572 | 


005730058:0 
00573005831 
00573005933 
0057:006030 
00571006132 
00572006241 
0057:0062?%14 
0057200632 
0057:0064:0 
00573006420 
0057:0066:0 
00573006830 
00572006933 
0057:0079%3 
00573007923 
0057: 0081%2 
0057#008123 
00573008332 
00571008333 
00573008533 


© 


CO 


Eye op 2 SCD 


©) 


Ch ae 4ae Wa 6 AS 3 


C) 


EMITNC512)3 
EMITDC33*18545);5 
EMITCO)3 
EMITD(5e551)3 
COMMON? 


PcTR « PCTR#13 
IF ELCLASS = COMMA THFN GO TO ANOTHER? 
IF ELCLASS # RTPAREN THEN 
BEGIN ERR(129)! gO TO EXIT FND3 

TF TAKECINDEX), NODIMPART+1 # PCTR THEN 

ee aY ee Sik! BEGIN ERR(128)3 GO TO EX1rT ENDS 
STEPYT3 
STACKCT « Q3 

ren a - : EXT? END ACTUAL PARAPART: 


PROCEDURE PROCSTMTcFROM)3 
BEGIN 
REAL HOLE »ADDRESS$ 


VALUE FROM’ BOOLEAN FROMS 


Se tet an ‘ REAL J3 LABEL OK} 
LABE|, EXIT? 
SCATTERELBAT3 
HOLE+ ELBATC I): 
ADDRESS « ADNRSF3 
IF NESTOG THEN 
Ds eek, ee IF MONE#O THEN 
IF TABLECI#1)4ASS{TGNOP THEN 
BEGIN FOR Je*CALLINFO STEP 1 UNTIL CALLX DO 
IF CALLrJI=ADDRESS THEN GO TO OK3 
CALLE CALL X«CALLX+1)«¢ADDRESS3 
END3 
CHECKFROHOLE)3 
IF ELCLASS # PROCID THEN 
IF NOT FORMALF THEN 
IF TABLECI+1) = ASSIGNOP THEN 
REGIN VARIABLEC2=REALCFROM))$ GO TO EXIT END3 
CALL VARTABLE TO HANDLE THIS ASSIGNMENT OPERATIONS 
IF ELCLASS # PRoCyD EQV FROM 
THEN BEGIN ERR(159)% GO TO EXIT ENDS 
IT 1S PROCEDURE IF AND ONLY WE COME FROM STMT3 
STEPIT} 
EMITOCMKS)3 
IF ELCLASS = LEFTPAREN 
THEN ACTUALPARAPARTCFALSE»GITCHOLE)) 
ELSE IF FORMALF THEN L «+ Ly 
ELSE IF TAKECGITCHOLE)) eNODIMPART#0 THEN ERR(128)3 
EMITVCADDRESS)3 
PROCSTMT} 


COMMENT 


COMMENT 


EXITS END 


PROCEDURE STRMPROCSTMTS3 
RFGIN REAL WHOLE*FIXsT13 


WHOLE «© ELBATCIJ$ FIX « 13 
IF ELCLASS # STRPROCID THEN EMITCO)3 
IF WHOLE. LVL # 4 THEN 

BEGIN FIX « L3 L « L+l1 END} 


57 1S 


START OF 


58 IS 


START OF 


07092000 
07093000 
07093100 
07093200 
07094000 
07095000 
07096000 
07097000 
07098000 
07099000 
07100000 
07400500 
07101000 


106 LONG 


07391000 
07392000 
07393000 

SEGMENT 
07393100 
07394000 
07395000 
07396000 
07397000 
07397100 
907397200 
07397210 
07397300 
07397400 
07397500 
07397600 
07398000 
07399000 
07400000 
07401000 
07402000 
07403000 
07404000 
07405000 
07406000 
07407000 
07408000 
07409000 
07410000 
07411000 
07412000 
07413000 
07425000 


46 LONG 


07426000 
07427000 

SEGMENT 
07428000 
07429000 
07430000 
07431000 
07432000 
07433000 


AHAAHAAH KAA Y HAHAHAHA RHA HH HAHA AAA AAA AH AHHH HA BHA At AH 


OR CK ACIOK 


0057008631 
00573008732 
00573008831 
00573008932 
00571009034 
00573009230 
0057!0093%3 
00571009420 
005710096!0 
0057:0098%0 
00574010030 
00572010084 
0057!0104%2 

NEXT SEG 
00032047932 
0003:0479%2 
0003:0479%2 


OK 5 


0058+0000:0 
0058:0000:0 
00582000080 
0058:000034 
0058:0001:33 
0058:000230 
0058:0003:2 
0058:000430 
0058000624 
0058:0008:0 
0058:0044:0 
005830014834 
0058:0049%2 
0058!0019%3 
0058t00200%4 
005830021483 
0058!009333 
0058:0028%4 
0058:0008%4 
0058:00909%9 
0058:0031:3 
0058:!0031%3 
0058:0032%0 
0058:0032%1 
0058:0033%2 
0058:00353%2 
0058:0037%2 
0058!004210 
0058:0042%4 
NEXT SEG 
00033047980 
00033047932 


00593000020 
0059%000070 
0059'0000!0 
00593000220 
0059:0004:0 


3 


8 


3 


59 


0059!0005%2 


() 


C) C1) () () 


Co 


Cy Ch A Se: oS 


Ce oe 


C) 


Oo: A. Ge 


CO 


COMMENT 


EMITOCMKS)3 
T1 © TAKEFRST. £12673 
FOR qT1 « 1 STEP 4 UNTIL T1 DO EMITCO)3 
Te STePy # LEFTPAREN THEN ERR(128) 
ELSE BEGIN ACTUALPARAPARTCTRUE»GITCWHOLE) )3 
IF FIX ¢ O THEN EMITVCWHOLE, ADDRESS) 
ELSE BEGIN Ty ¢« U3 L © FIXS 
WHOLE «© TAKECGITCWHOLE))3 
EMITNUM(T1+9"WHOLE.616212))3 
Loe 143 
EMITBCBBWeBUMPL* WHOLE «£28212])3 
ENDS 
END END STRMPROCSTMT? 
59 15 
INTEGER PROCEDURE RBAE$ 
BEGIN BAE © BUMPL$ CONSTANTCLEANS ADJUST END BAE? 
COMMENT RELSESTMT COMPILES THE RELEASE STATEMENT} 
COMMENT pOSTMT HANDLES THe pO STATEMENT; 
PROCEDURE DOSTMT3; 
BEGIN INTEGER TL3 


07434000 
07435000 
07436000 
07437000 
07438000 
07439000 
07440000 
07441000 
07442000 
07443000 
07444000 
07445000 
07446000 


33 LONG 


07458000 
07459000 
07460000 
07481000 
07482000 
07483000 


START OF SEGMENT 


FOULED « L? 


STEPIT# Thebs STMT$ IF ELCLASS # UNTILV THEN ERR¢131) 
FLSE BEGIN 
STEPIT$ BEXPS EMITBCBBCeBUMPL»TL) END 
END DOSTMT?: 
60 1S 

WHILESTMT COMPILES THE WHILE STATEMENT? 
PROCEDURE WHILESTMT3 

BEGIN INTEGER BACK»sFRONT 


07483500 
07484000 
07485000 
07486000 
07487000 
07488000 


11 LONG 


07489000 
07490000 
07491000 


START OF SEGMENT 


FOULED « Lé 


STEPIT’ BACK «© L$ BEXp$ FRONT « BUMPL$ 
IF ELCLASS # DOV THEN ERR(132) ELSE 
BEGIN STEPIT? STMT EMITBCBBWsRUMPL»s BACK)? 
CONSTANTCLFANS EMITBCBFC,FRONT»sL) END END WHILESTMT3 
64 1S 
COMMENT GOSTMT COMPILES GO TO STATEMENTS, GOSTMT LOOKS AT THe 
EXPRESSION. IF IT IS SIMPLE ENOUGH WE GO DIRECTLY, 
OTHERWISE A CALL ON THE MCP IS GENERATED IN ORDER TO GET 
a STORAGE RETURNED, SEE DEXP AND GENGO3 
PROCEDURE GOSTMT} 
BEGIN 
. REAL FLBWS 


07491500 
07492000 
07493000 
07494000 
07495000 
07496000 


14 LONG 


07497000 
07498000 
07499000 
07500000 
07501000 
07502000 
07503000 


START OF SFGMENT 


LABEL GOMCPreExXITs 

le STFPY = TOV THEN STEPIT3 

IF ELCLASS = LABELIDO THEN TB1 « TRUE 

ELSE 7F ELCLASS = SWITCHID THEN TB1 « FALSE 

ELSE BEGIN IF FLCLASS = POLISHV THEN 
BEGIN POLISHERC1)# EMITOCBFY) END 
ELSE ERRC501)3 
GO To EXIT 

ENDS 
TF NOT LOCALCELBATEI1) THEN 


07504000 
07505000 
07506000 
07507000 
07511000 
07512000 
07513000 
07514000 
07515000 
07516000 


AAR HAA KH HHH HHA RA As 


AHH HHH Ht 


HAHAHAHAHAHA eA HH ss 


0059!000733 
0059:000834 
0059300130:0 
0059:0034:0 
00592004523 
00592004840 
00592004933 
0059!002234 
00593000481 
00593002674 
00592002733 
00593003020 
0059:0030:0 


NEXT SEG 3 


0003:0479i2 


000380479382 . 


0003#048410 
00038048480 
00037048420 
0003:0484:0 


KK 60 


0060!0000:0 
0060? 000084 
0060:000034 
00603000420 
0060:0005%2 
0060:00083:0 


“NEXT SEG 3 


00033048430 
00033048420 
00033048430 


aR 6 


00642000030 
00612000084 
0061%0000!4 
00612000420 
0061#0006:0 
0061004030 


NEXT SEG 3 


0003:0484:0 
0003:04843:0 
00032048430 
0003°0484:0 
00033048430 
0003*%0484:0 
0003%0484:0. 


TEL ECE Le . | 62 


0062:0000:0 
0062/0000%0 
0062%0002%0 
006230003!3 
00622000630 
00623000733 
0062:0009%3 
0062:0011%2 
00621001133 
00623001133 


C) 


C) 


) 


ad 


O 


BEGIN 
IF TB, THEN 


BEGIN EMITVCGNATCELBATEIIJ))3 


wale Be ae : EMITOCBFW)$ 


STEPIT: 
GO TO EXIT END3 
BEGIN ERR(501)3 gO TO EXIT ENDS 
ENDS 
1F TB1 THEN BEGIN GOGENCELBATC1IJ»+BFW)3 STEPIT: 
CONSTANTCLEAN’ GO EXIT END 
FLSE BEGIN 
ELBW + FLBATrIy; 


BANA$ 
EMLTOCDUP)3 
EMITOCADD)3 
EMrTO¢BFW)3 
GT3 « TAKE¢GT4«G1TCELBW))4+GT43 
FOR GT4 « GT4+i STEP 1 UNTIL GT3 DO 
GOGENCTAKECGTA) » BFW); 
ENDS 
EXIT? FND GOSTMTs 


PROCEDURE GOGENCLABELBAT s+BRANCHTYPE)D$ 
VALUF LABELBATs»sBRANCHTYPE? 
REAL LABELBAT+BRANCHTYPES 
BEGIN 
IF BOOLEANCGT1«TAKECGT2*GITCLABELBAT))),Ciit1] 
THEN EMITBCBRANCHTYPE*BUMPLeGT1,£369121) 
COMMENT LABELR SETS THE STGN OF THE ADDITIONAL INFO FOR A 
NEGATIVE WHEN THE LABEL IS ENCOUNTERED, SO THIS 
THAT WE NOW KNOW WHERE TO Go} 
FLSE BEGIN EmMITCGT1)3 EMIT¢CBRANCHTYPE)3 
PUTCGT1&L(36!36!32]2GT2) END END GOGEN3 
COMMENT SyMPGO 1{S USED ONLY BY THE IF STMT ROUTINE, 
A STATEMENT 18 A SIMPLE GO TO STATEMENTS 
BOOLEAN PROCEDURE SIMPGO3 
BEGIN LABEL EX]TS 


IF ELCLASS = Gov 
THEN BEGIN 

IF STEP! = ToV THEN STEPIT?3 

IF ELCLASS = LABELID THEN 

IF LOCALCELBAT£C1I7)2 THEN 

BEGIN SIMPGO « TRUE$ GO EXIT END3 
I « T#13 ELCLASS ¢ GOV END; 
EXIT: FND SIMPGO; 


COMMENT TFSTMT COMPILES IF STATEMENTS. SPECIAL CARE 1S TAKEN 
OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUMPS, 
FXTENT SUPPERFULOUS BRANCHING IS AVOIDED; 
PROCEDURE IFSTMT3 
RBFGIN REAL TisT23 LABEL EXrT3 


IFCLAUSES 
IF SyMPGO 
THEN BEGIN 


LABEL 
MEANS 


IT DETERMINES IF 


TO 
TO SOME 


62 IS 


07516100 
07516200 
07516300 
07516400 
07516500 
07516600 
07517000 
07517500 
07518000 
07519000 
07520000 
07521000 
07522000 
07523000 
07524000 
07525000 
07526000 
07527000 
07528000 
07529000 
07530000 
07531000 


07535000 
07536000 
07537000 
07538000 
07539000 
07540000 
07541000 
07542000 
07543000 
07544000 
07545000 
07546000 
07547000 
07548000 
07549000 


START OF SEGMENT 


63 IS 


07550000 
07551000 
07552000 
07553000 
07554000 
07555000 
07556000 
07557000 


07558000 
07559000 
07560000 
07561000 
07562000 


START OF SEGMENT 


07563000 
07564000 
07565000 


AA HHH HARA ASA A AAS 


0062°0012 
006200413 
006220013 
00623001533. 
00622001630 
00622001681 
00624001782 
00621001684 
00623004834 
00621002132 
00623002230 
00622002281 
0062!002333 
0062%0023%3 
00623002430 
00621000434 
00621002533 
00623002610 
006210099%2 
0062:0033:2 
006220035%2 
0062:0035i2 


zl 
12 
23 


NEXT SEG 3 


00032048430 
0003'0484:0 
000330484:0 
00033048430 
0003048420 
00038048783 
000320490!0 
0003%049024 
00033049034 
00032049034 
000330493392 
00038049580 
000380495i2 
0003:0495i2 
00032049582 


etree. sy 63 


0063#0000%0 
0063%20000:0 
0063%0001%2 
0063:0003%2. 
0063%0004%0 
00633000533 
0063:0007!2 
0063i0009%2 


NEXT SEG 3 


00033049532 
000380495%2 
0003%0495%2 
0003804952 
0003%0495%2 


i OR AO Ok 64 
006430000:0 ... .. 


0064:0000%4 
0064:000084 


Oo 3° (8 tor aor 3 


C) 


Sena 


T1 ¢ ELBATrII3 
IF STFPY = ELSEV 
THEN BEGIN 
STEPIT3 
IF SIMPGO 
THEN BEGIN 
GOGENCELBATCIJ,8FC)3 GOGENCT1+BFW)3 
STEPIT$ GO TO EXIT END ELSE BEGIN EMITLNG3GOGENCT4+BFC)3 
STMT # GO TO EXIT END END 3 
EMITLNGS GOGENCT1.BFC)3 
GO EXIT ENDS 
Ty * BUMPL? STMT 
IF ELCLASS # ELSEV THEN 
BEGIN IF L=T1>1023 THEN ADJUST; EMITBCBFCeTisL)3 
GO EXIT END3 
STFPYT3 
If STMPGO 
THEN BEGIN 
T2 «© U3 L «Ti s2s;G0GENCELBATCIJ»BFC)3 L « T23 
STEP]T# GO EXIT ENDS 
To « BUMPL3 CONSTANTCLEAN? 
IF L=T1>1023 THEN ADJUST EMITBCBFCeTieL)s STMT3 
IF lb#T2>1023 THEN ADJUSTS EMITBCBFWeT2eL)3 
IFSTMTS 


LABELR HANDLES LABELED STATEMENTS, YT PUTS L INTO THE 


ADDITIONAL INFO AND MAKES ITS SIGN NEGATIVE, IT COMPILES 
AT THE SAME TIME ALL THE PREVIOUS FORWARD REFERENCES SET 
Up FoR IT BY GOGEN,. cTHE ADDITIONAL INFO LINKS To A LIST 
In THE CODE ARRAY OF ALL FORWARD REFERENCES)3 


PROCEDURE LABELR3 
BEGIN LABEL EXIT» ROUNDS 


DEFINE FLBATWORDSRRO#eLINK=GT2#, INDEX=GI3#s ADDITIONAL 


HGT4#»sNEXTLINK=GT543 
REAL OLDL?3 
DO BEGIN OLDL « L; 
IF STEP? # COLON THEN 
BEGIN ERRC133)% GO TO FXIT END 


XMARKCLBLREF)$ & THIS WILL SORT AHEAD OF DECLARATION 2110 
¥ WHEN WE GET AROUND TO THE XREF, 4110" 


1F NOT LOCALCELBATWORD ¢« ELRATLI“1)) 
THEN BEGIN FLAGC134)2 GO TO ROUND END3 
IF STEP? = COLON THEN 
BEGIN ] « Jmi1i ADJUST END ELSE 
IF ELCLASS = LITNO THEN | « &xC ELSE 
TF ELCLASS=ASTRISK THEN 
BEGIN IF MOnE #.0 OR ASTOG THEN 
FLAGC505)3 
ASTOG ¢« TRUE; 
L « 4xPRTYT3 
END ELSF 
} « y723 
IF STEP? # COLON THEN 
BEGIN ERRC133)% GO TO EXIT END3 
IF L < OLDL THEN 
BEGIN FLAG(504)3 GO To ROUND END: 


07566000 
07567000 
07568000 


07569000- 


07570000 
07571000 
07572000 
07573000 
07574000 
07575000 
07576000 
07577000 
07578000 
07579000 
07579100 
07580000 
07581000 
07582000 
07583000 
07584000 
07585000 
07585100 
07586000 
07587000 


441 LONG 


07588000 
07589000 
07590000 
07591000 
07592000 
07593000 
07594000 


START OF SEGMENT 


07595000 
07596000 
07596500 
07597000 
07597500 
07598000 
07598100 
07598200 
07599000 
07600000 
07600100 
07600200 
07600300 
07600400 
07600410 
07600420 
07600430 
07600440 
07600450 
07600500 
07600600 
07600700 
07600800 
07600900 


AOR aOR Ok 


AA AH AHH AHHH HHA HAO NH HHA AH KAHAN RAY HRA AA AHH FA AHA A AHH IH 


00642000133 
0064:000234 
0064:0003!2 
00642000420 
0064000434 
0064?0004%4 
00643000583 
0064000733 
00641004034 
00642001123 
00648004382 
00648004333 
0064%0016:0 
006420016214 
0064:00203 14 
00642002132 
00643002133 
0064:000133 
006430022314 
0064:0006%1 
006432000733 
00643003030 
00643003450 
00643003733 


NEXT SEG 


000320495%2 
0003:0495%90 
000320495!90 
0003%0495!%2 
0003:!0495%2 
00038049532 
00038049532 
65 
00651000030 
00653000080 
00653000030 
0065:0000:0 
00652000081 
00652000133 
00652000333 
00653000733 
00652000733 
0065:0008!4 
0065%0011:23 
0065!'0042?1 
0065004532 
0065300480 
0065%001932 
00658002132 
00653002220 
00651009332 
0065!002410 
006510094180 
0065!0026!0 
00653002732 
006530028314 
00653002933 


G3 


O 


ROUND: 


EXT: 


GTi «© TABLECT+193 
LINK © CADDITIONAL «© TAKECINDEX « GITCELBATWORD))) 
e[36t12]3 
IF ANDITIONAL < 0 THEN 
BEGIN FLAGC135)3 GO TO ROUND END; 
FOULED « L3 
TF TABLECI+1) = COLON THEN 
BEGIN 
1F LINK#O THEN BEGIN OLDL « L3 
pO BEGIN NEXTLINK « GETCLINK): 
Loe LINKS 
IF OLOL.£C36:t0J°L,.£3631012128 
THEN FLAG(50) ELSE 
EMITCOLDL*LINK&OC4624632]4 
ORNEXTLINK[ 468 4682)43072)3 
Loe L413 
ENn UNTIL LINKeLINK™NEXTLINK DEV 4esL3 
L « OLoLs ENDS STEPITS 
pO IF STEPI € STRNGCON AND ELCLASS 2 
NONLITNO THEN EMITWORDC(C) 
ELSE BEGIN ERRC500)3 - « T=41 END 
UNTIL STEPI # COMMA; 
re Im". 3 
END ELSE 
WHILE LINK # 0 
DO BEGIN 
NEXTLINK © GETCLINK=2)3 
IF L@LINK>1023 THEN ADJUST; 
EMITBCGETCLINK@ 1) eLINKeL)3 
LINK « NEXTLINK END$ 
PUTC*ADDITIONALAL£E36$362142),INDEX)3 
FRRORTOG « TRUE END UNTIL STEPI #4 LABELID? 


END LABELRS 


LEEEELEYLLELAEEELELL LAE LE REL LLY LY LE LYALL EESLY ELE YAL YALE YELL EL LL ELL AY YA SHY 
QO IC OR CII IGOR IG OO GSI OK ICCA IH K sk ik ak 


%* 


CASE 
STATEMENT 
THIS PROCEDURE HANDLES THF CASE STATEMENTe THE SYNTAX FOR THE CASE 
STATMENT 18? 
CASE <AEXP> OF BEGIN «COMPOUND TAIL? 
THE CONF GENFRATED FOR THIS STATEMENT IS3 
<ARXP> 
Late 9? 
BFW BRANCH TO BRANCH TABLE 
STmT 0 
LITC 2 
BFW BRANCH TO RESUME 


*2 
*% 
*% 
*% 
¥*% 
*% 
*% 
* 
*% 
*% 
*% 
*% 


tn 


*% 
*% 
*% 
*% 
*% 
¥*% 
*% 
*% 


07600950 
07601000 
07602000 
07603000 
07604000 
07604010 
07604020 
07604030 
07604040 
07604050 
07604060 
07604067 
07604068 
07604070 
07604080 
07604085 
07604090 
07604100 
07604110 
07604120 
07604130 
07604140 
07604150 
07604160 
07605000 
07606000 
07607000 
07607400 
07608000 
07609000 
07610000 
07645000 
07646000 


88 LONG 


07646010 
07646015 
07646020 
07646025 
07646030 
07646035 
07646040 
07646045 
07646050 
07646055 
07646060 
07646065 
07646070 
07646075 
07646080 
07646085 
07646090 
07646095 
07646100 
076461405 
07646110 
07646115 
07646120 


AMANMAANADANAAMANRMVANV OOOO ABH HAHHAHA HAHAHAHA AAS HAA HAH TA AS asi 


0065:0031%2 
00653003332 
00653003424 
0065%0036!0 
0065:003732 
00658003834 
0065:0039%3 
0065:00414%2 
00652004133 
0065300433 3 
0065:0045%2 
006530046:0 
0065200478 3 
0065%00493 3 
0065%0052:0 
0065:0054:0 
00653005583 
00652005830 
00652005923 
0065:0061!2 
00653006231 
0065:0067!2 
0065200683 1 
0065300693 3 
00652006933 
0065007142 
00652007210 
00653007430 
0065:0076:0 
00653007844 
0065141007933 
0065:0082!0 
006520084:0 
NEXT SEG 
0003%049532 
000330495392 
000330495t2 
00032049582 
0003:0495%t2 
000320495190 
0003:0495%92 
000320495%2 
0003?%0495i¢a 
000320495%2 
0003:0495%2 
0003'0495%e 
0003%0495%2 
0003%0495%92 
00038049592 
00033049512 
0003%0495i2 
0003%0495%9 
0003%0495%0 
00032049580 
0003:0495!92 
00032049530 
0003:0495!0 


3 


C) O C) C) OC) Co) Cy C) < 


C) 


@ 


BFW BRANCH TO RESUME 


RRANCH TABLES 


BFW BRANCH INTO TABLE 
BRW BRANCH TO STATEMENT O 


RBW BRANCH TO STATEMENT 1 


BBW BRANCH TO STATEMENT N 
RESUME S$ 


NOTICE THAT? 


1). THF CASE INNEX IS NOT  INTEGERIZED. IF YOU HAVE ANYTHING THAT ¥*% 


MIGHT CAUSE THE INDEX TO BE UNNORMALIZED YOU WILL HAVE 
INTEGERIZE JT YOURSELF, 


TO ¥*% 


2) nO RANGE CHECKING IS DONE ON THE INDEX, IF YOU USE A NUMBER *z% 


OUT OF RANGE THEN YOU WILL FALL OFF THE END OF THE WORLD, 


3) TF A STATEMENT IN THE CASE COMPOUND TAIL IS NULL» NO CODE 


1S *2 


GENFRATEN FOR THE STATEMENT, INSTEAD» THE BRANCH TABLE GOES *3% 


NIRFCTLY TO RESUME, 


4) +F A STATEMENT IN THe CASE COMPOUND TAIL IS A SIMPLE GO TOs *% 


THE STATEMENT DOES NOT HAVE A BRANCH TO RESUME AFTER IT, 


*2 


OI OOO OGIO GIGI ICO IGOR IOI II GI’ IOI RE doi ae ag! 
KEZLRELY LLY RELLA EEL EL LAA EEL HEL EL SEE ARAL EDEL Y LULA LE XAL EY ESL EY LAA Y LEY YY HEY 


PROCEDURE CASESTATFMENTS %115= 
BEGIN %115" 
ARRAY CASEADDRESSr0399]3 % THIS ARRAY HOLDS THE RELATIVE %115= 
% ADDRESS OF THE BEGINNING OF EACH 2115= 
2% % CASE, *115= 
INTEGER %115" 
LINK» % HOLNS RELATIVE ADDRESS OF FIRST OF #11458 
@ BRANCHES THAT MUST BE FIXED UP TO 3115 
% BRANCH TO THE RESUME POINT, %115= 
ADR, % HOLDS RELATIVE ADDRESS OF THE BRANCH 
% AROUND THE CASE STATEMENTS TO THE 91415" 
% BRANCH TABLE. THIS BRANCH GETS FIXED 
% UP WHEN WE FIND WHERE THE BRANCH TABLE 
% GOES, %415" 
Ne % COUNT OF NUMBER OF CASE STATEMENT 21495 
% ENCOUNTERED, %115= 


07646425 
07646130 
07646435 
07646140 
07646445 
07646150 
07646155 
07646160 
07646165 
07646170 
07646475 
07646180 
07646185 
07646190 
07646195 
07646200 
07646205 
07646210 
07646215 
07646220 
07646225 
07646230 
07646235 
07646240 
07646245 
07646250 
07646255 
07646760 
07646265 
07646270 
07646275 
07646280 
07646285 
07646290 
07646295 
07646300 
07646305 
07646310 
07646315 
07646320 
07646325 
07646330 
07646335 


START OF SEGMENT 


07646340 
07646345 
07646350 
07646355 
07646360 
07646365 
07646370 
07646375 
07646380 
07646385 
07646390 
07646395 
07646400 


DOAIIDIAIONIOAIAIOYI AON ANA EADOINOAANAANANANAIANAINNANANANMNANAAIONANANAOM ANNAN ANNAANAAMNANANANANRAANANADND 


000380495292 
00038049522 
00033049532 
00033049539 
00032049522 
0003!:0495%9 
000370495i2 
0003%0495i9 
000380495t2 
00031049512 
0003:0495i2 
000380495i2 
00033049532 
00031049532 
0003:0495:2 
0003%:0495%0 
00033049532 
0003:049532 
00033049582 
000330495t2 
0003:0495!2 
0003%049532 
0003:049539 
0003:0495%2 
0003:0495%2 
0003:0495%2 
0003:0495it92 
0003:0495%92 
000330495302 
0003:0495%9 
000320495392 
0003%'0495%2 
00038049530 


- 00033049532 


0003:0495%2 
00033049532 
0003:049532 
00033049530 
00033049532 
00032049539 
000320495390 
00033049532 
0003:0495i2 


ee ees tt 66 


0066'000183 
0064630001 %3 
0066?000133 
0066#000133 


- 00668000183 


00661000123 
006630001433 
006620001:3 
0066?000433 
00663000133 
0066!000133 
0066:0001:3 
00663000133 


() CO) O C) C) 


C) 


C) 


} 
, 


C) 


C) 


othe 


FNDOFIT» % ADDRESS OF RESUME POINT Z115" 
Je % TEMPORARY %115° 
K3 % TEMPORARY %115- 
ee ee % %115° 
ROOLF AN %115" 
GOTOG? % TRUE IF WE ARE COMPILING A SIMPLE 4115 
be te 2 G0 TO, 495" 
LABEL X1T3 ¥115= 
%115" 
%115° 
STEPIT? % STFP OVER "CASE" %115" 
AEXPS % GENrRATE CODE FOR CASE INDEX %115* 
IF STEPT # BEGINVY THEN % NOTICE Wr JUST JUMPED OVER "OF" %115° 
BFGIN %115= 
FRR(70)3 GO TO XIT3 21158 
ENDS *115° 
EMtT¢cO)$ % GENERATE DUMMY BRANCH TO BRANCH TABLE, WILL FIX %115- 
EMITOCBFW)3 8 1T UP LATER, 2115" 
ADR t= |? 4115" 
WHITE STEPI # ENWDV DO 2115" 
BEGIN % PROCESSING CASE STATEMENTS %115" 
ERRORTOG t= TRUE - %495" 

IF ELCLASS = SEMICOLON THEN % NULL STATEMENT, NO CODE NEEDEN 
NM t= N + 1 & THIS LEAVES A ZERO IN CASEADDRESS(EN] %1158 
ELSE %115- 
BEGIN ¥115" 
CASEADDRESSEN] t= L; % REMEMBER BEGINNING ADDRESS OF ¥1156 
Nts Na 43 % THIS CASE. ¥115° 
IF ¢GOTOG t= SyMPG0) THEN Z115= 
ELBATrI¢=t7)] #5 ELCLASS t= GOVs &% REMEMBER IF SIMPLEY115= 
STMT? ¥ PROCESS THE STATEMENT Z115" 
IF ELCLASS = SEMyCOLON THEN ¥115= 
IF NOT GOTOG THEN % GENERATE DUMMY BRANCH TO RESUME 2415 
BEGIN e115" 
EMITCLINK)3 %115" 
EMI TOCBEW)3 %115° 
LINK 32 L3 ¥115= 
END *115" 
FLSE % SIMPLE GO TO. NO CODE TO GENERATE ¥115= 
FLS¢ Z115" 
IF ELCLASS # ENDV THEN 7115 
ERR¢71)3 %115= 
END} %115" 
END OF WHILE 1,00P3 ¥115" 
ENDTOG t= TRUE} % SKIP OVER COMMENT AFTER END %115" 
DO STOPDEFINE t= TRUE UNTYL Z115° 
STEP! S$ ENDV AND ELCLASS 2 UNTILV OR NOT ENDTOG3 %115- 
FNDTOG t= FALSE} %115= 
EMITBCRFWsADRe LF % FIX UP BRANCH TO BRANCH TABLE %115= 
EMrTOCDUP)} % GENERATE CONE TO MULTIPLY INDEX ¥115= 
EMITOCADD) 3 % BY TWO AND BRANCH INTO BRANCH TABLE ¥115< 
FMTTOCBFW)} %115= 
ENDOFIT ts L + @XN3 % CALCULATE WHERE RESUME IS %115= 
WHILE ¢JteJ+1) < N DO % GENERATE THE BRANCH TABLE %115* 
EMITBCBBWyLtsl].t2e1F ¢K?sCASEADDRESSE Jm=4J) = O THEN %115" 
ENDOFIT ELSE K)3 %115* 
J ots LINKs 8 To MAKE THE LOOP WoRK %415" 


07646405 
07646410 
07646415 
07646420 
07646495 
07646430 
07646435 
07646436 
07646440 
07646445 
07646450 
07646455 
07646456 
07646457 
07646458 
07646459 
07646460 
07646465 
07646470 
07646475 
07646480 
07646485 
07646490 
07646495 
07646500 
07646505 
07646510 
07646515 
07646520 
07646525 
07646530 
07646535 
07646540 
07646545 
07646550 
07646555 
07646560 
07646565 
07646570 
07646575 
07646580 
07646585 
07646590 
07646595 
076466014 
07646602 
07646603 
07646604 
07646605 
07646610 
07646615 
07646620 
07646625 
07646630 
07646635 
07646640 
07646645 


AIPMADIOAIAIINANONONAIAAAIAVWAAIYMNAIAOYMRVWAINAAAAGAAAIANAANARIAANANMYONAMNANANANAAAA FOO RMRANMAOAO 


0066!0001:3 
0066:000133 
0066:000133 


. 00662000133 


00662000133 
0066%000133 
00663000133 
0066:000133 
0066:0001?3 
0066:000133 
0066:000133 
0066:000230 
0066'000231 
0066:0003%t3 
00662000430 
0066!0005:3 
00662000533 
0066:0006:0 
0066!0007%2 
00662000733 
00661000933 
006610009! 3 
0066%0010!0 
0066:0041%2 
0066%001210 
0066%0042%4 
0066!00143%2 
0066!001444 
00662001533 
00661004634 
0066200290:0 
0066:002034 
00663002132 
00661000230 
0066:002284 
0066:0003:3 
0066:009430 
0066:00253:0 
00662002532 
0066:0095t2 
00663000533 
006630096!4 
00662009830 
0066#0028:%0 
0066:0008%4 
0066:0029%9 
0066:003034 
0066:0034:0 
0066!0034%4 
00662003630 
0066!00362?14 
00663003783 
0066!003850 
0066%0040t0 
0066%004230 
0066: 0046t0 
00663004820 


() 


X{Ts 
END 


PROC 


COMM 


we 


ELSE 


WHILE CLINKs=J) # 0 D0 Z115- 

BrGIN &% FIXING UP BRANCHES TO RESUME %115= 

Jo t= GETCLINK=2)3 & LOCATION OF NEXT BRANCH TO FIX ¥115° 

EMITRCBFWeLtNKeL)3 %¥115e 

ENDS %115° 

%115= 

OF cASF STATEMENT? %115° 
EDURE FILLSTMTC(STZE)* VALUE SIZE# INTEGER SIZE3 


BEGIN 
FNT cOcT" PERFORMS THE OCTAL CONVERT FOR THE FILL STATEMENT, 
IF THERE ARE ANY NON@OCTAL DIGITS» THIS PROCEDURE RETURNS 
A ZERO AND THEN THE 3 LOW*ORDER BITS OF THE BAD DIGIT ARE 
“RESET AND }GNORED AND ERROR NUMBER 303 IS PRINTED, "COCT" 
ALLOWS FLAG BITS TO BE SET, WHEREAS "OCTIZE" DOES NOT, 
N NUMBER OF CHARACTERS TO BE CONVERTED, 
SKBIT NUMBER OF BITS To SKIP BEFORE STARTING CONVERSION, 
THIS IS BECAUSE THE NO, OF CHARS, MAY BE LESS THAN 
8 AND IT MUST BE RIGHT=JUSTIFIED IN COCCODEFILE), 
ACC ADDRESS OF THE ACCUM WHERE ALPHA INFO IS KEPT. 


REAL STREAM PROCEDURE COCTCNsSKBIT*ACC*®CD)SVALUE Ne SKBIT? 


BFGIN 
STISACCS SytsS1+63 PLstsCD3 NSts8B LIT"OO0Q0NNN"S 
NresCD ¢ SKIP SKBYIT DRE TALLY%=13 
NcTe Sco"7rTHEN TALLY%=0% SKIP 3 SBS 
3¢1F SB THEN oSist SET ELSE SKIP 4 OB? SKIP 1 SB))3 
COCTI=TALLY 
END COCT3 
REA, T23 
LABFL Lis 
STREAM PROCEDURE ZEEROCD)3 
BEGIN 
Npe=DsnSisB LIT"ON0NOOOONS 
SPt=D331032¢DSt=WNS))s DSt=30 WDS3 
END ZEFRO3 
XMARKCASSIGNREF)S % FILL STATEMENT ¥110° 
STREAMTOG!=SROOLEAN(C2)3 
SEGMENTSTARTCTRUE D3 
IF STEPTZASSTGNOP THEN ZEFROCCONEC1)) 
BFGIN 
FOR T2is1 STEP 1 UNTIL SIZE DO 
BEGIN 
IF STEPI>1DMAX THEN 
BEGIN 
IF ELCLASSAZLITNO AND ELCLASS#NONLITNO THEN 
IF ELCLASS#STRNGCON THEN 
IF ELCLASS=ANOP AND 
CSTEPI=NONLITNO OR ELCLASS=LITNO) THEN 
CiaC & ELBATCIm1101:2141) 
FLSE BFGIN EFRRORC300)3 GO TO Ly END! 
IF ELCLASSsSTRNGCON AND COUNT=8 THEN 
MOVECHARACTERS¢ 8sACCUM[ 1]53eCODE( T2220) 
ELSE MOVECL»C*CODECT2)) 
END 
ELSE IF COUNTS19 AND ACCUME13,018%148]="0CT" THEN 


07646650 
07646655 
07646660 
07646665 
07646670 
07646674 
07646675 
66 1S 60 LONG 
07647000 
07647500 
07648000 
07648500 
07649000 
07649500 
07650000 
07650500 
07651000 
07651500 
07652000 
07652500 
07653000 
07653500 
START OF SEGMENT 
07654000 
07654500 
07655000 
07655500 
07656000 
07656500 
07657000 
07657500 
07658000 
07658500 
07659000 
07659500 
07660000 
07660500 
07660600 
07661000 
97661500 
07662000 
07662500 
07663000 
07663500 
07664000 
07664500 
07665000 
07665500 
07666000 
07666500 
07667000 
07667500 
07668000 
07668500 
07669000 
07669500 
07670000 


AH HAA AHH HA TAA OO AHA ATA HT HA TA A HHA AA AH HIT NOOO 


00663004982 
00661005031 
0066:0050?1 
00663005221 
00661005333 
00662005430 
006630055%2 
NEXT SEG 

0003%0495%2 
000380495%2 
0003?0495%2 
0003:0495t2 


3 


000330495i2. 


000330495%2 
00033049532 
0003#0495%2 
0003:0495t2 
0003:20495%2 
000320495%2 
0003049532 
0003%0495%2 
0003%0495%2 


OK Ok & 67 


00672000030 
0067200000 
0067#0002:0 
0067:0003!2 
0067:0005ia 
0067:0007!2 
0067:000733 
0067%00083 4 
00673000834 
00678000831 
006720008314 
00672000982 
00672001031 
00673001230 
006730032414 
0067:0017%2 
00673001830 
0067:00;8%4 
0067:0023%2 
0067 '0024:0 
006730095i2 
0067200205%2 
00673002630 
00673002631 
0067:002830 
006720020983 
00673003084 
00672003382 
0067!0035%3 
00672003783 
00673003933 
0067?0044:0 
006710048! 4 
006730049%2 


Co 


} 


- 


oa 


C) 


REGIN 
IF COCTCCOUNT*3248=(CCOUNT=3)x32ACCUM(1]> 
CODECT2)9=0 THEN FLAGC303) 
END 
FLSE BEGIN EFRROR(302)3 GO TO Li 
Ip STEPT#¥COMMA THEN GO TO Li 
END; 
FRROR(54)} 
END; 


END 3 


RIGHT CSIZEX4)3 

STRFAMTOG?H=FALSF3 

SEGMENTCSIZE»9)3 
PROGNDFSCBLORCANDRSF, TRUE sSIZE»DDES)? 
END FILLSTMTs 


PROCEDURE STMT$ 
BEGIN LABEL, 


Lds L2» L3s L4s LSe bLée L7e L&» L9r Lider 
Lite Li2e Lids Lid» Lids Li6s Lives Lids Lider 120» 
L2@is 1,228 L235 L24e L25» L26s L27» L228» 1299 30s 
L3t° 1,325 W335 L3de L35e L336» L37e L38s L399 LAO» 
L419 L422 L43* L442 L45* L4d6e L47* LAB» LAr L500» 
nia ee LSie 1.52 L533» L543 

SWITCH S ¢ 
Lis 2s b3s, L4, L5s L6s L7,r Br L9r Lids 
Liles Li2»e Lids Lide Lids Lids Live Lids Li9se L220, 
Lets L225 Leas Leas L25s L265 L27e L28e L2%e L30, 
L3t* L325 L335 L344» L355 L366 L375 138s L39%s LAO, 

ew! Lats L425 L435 Lode LaSs L46s L47» 148» L4Gs L5O, 
LS5te L52* L535 L543 
LABEL AGAIN*EXIT3 

_ STACKCT « 03 
AGAIN? GO TO SCELCLASS]3 
IF ELCLASS = COLON THEN 
BEGIN STEPTT; GT1 « bs 
IF ELcbLaSS = COLON THEN 
BEGIN aDJUST3 | + I™4 END 


ELSE F ELCLASS = LITNO THEN L «© 4x¢ 
ELSE t «+ I™43 
IF L ¢< GTi OR STEP? # COLON THEN 
sett, Ate Bt diss BNE : BEGIN ERR(504)3 GO TO EXIT ENDS 
STEPIT3 
GO TO AGAIN3 
tS Sis. i an AEB os - 8 et . END} 

IF ELCLASS = © THEN FLAGC10093 FLAGC145)3 
L1tbL2ty3tL4tLosLOr, Osby tL ast bLyStLzStLi6s Lys L20tLazqiLe25rL2aBiLegiLoag: 
L33?*L34?L35'L362L37°L393 

ERRC€144)5 GO TO EXIT3 


L73:L8% 
ie : SUBHANNC TRUE) 
LyOrL¢BsLyo: 
PROCSTMTCTRUF)3 


GO TO FXIT3 


GO TO EXIT3 
L412: 

STRMPROCSTMT$ 
L22sL23?*L26:L27:h30%L3 73 


GO TO EXIT 


67 1S 


07670500 
07671000 
07671500 
07672000 
07672500 
07673000 
07673500 
07674000 
07674500 
07675000 
07675500 
07676000 
07676500 
07677000 
07677500 


76 LONG 


07711000 
07712000 


START OF SEGMENT 


07733000 
07714000 
07715000 
07716000 
07717000 
07718000 
07719000 
07720000 
07721000 
07722000 
07723000 
07724000 
07725000 
07726000 
07726990 
07727000 
07727010 
07727020 
07727030 
07727040 
07727050 
07727060 
07727070 
07727080 
07727090 
07727100 
07727110 
07728000 
07729000 
07730000 
07732000 
07732000 
07733000 
07734000 
07735000 
07736000 
07737000 
07738000 


ee ee ee ee ee ee ee ee 
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0067%0052:0 
006720052: 1 
00673005631 
0067:0061:2 
00672006133 
006720064:0 
00673006532 
0067!0068:0 
00672006834 
00671006824 
0067:0069%2 
00673007030 
0067:0071%2 
00673007220 
0067!007333 
NEXT SEG 
00032049530 
0003:0495t92 


0068#0000!0 
0068?0000!0 
0068:0000:%0 
0068!0000:0 
0068:0000:0 


0068:0000:0 - 


0068:0000!0 
00683000231 
0068:000231 
0068:000231 
0068:000231 
0068:00023}4 
0068:0002:4 
0068:0030!0 
0068:0030:0 
0068:0031:3 
0068:0034!0 
0068:0034314 
00682003634 
0068:!0037!2 
00681003933 
0068:004a1:3 
0068:0044:0 
0068:0046:0 
0068:004830 
0068200484 
00683004922 
0068:0049:2 
00683005433 
0068:0052:0 
0068!0052?0 
0068:0053!2 
0068!:005420 
0068t0055:2 
0068:0056:0 
0068:30057i2 
00683005830 
00683005990 


3 


68 


) 


C 


2 


Cy 
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} 


eer 


BRET3 08011000 
OWN BOOLEAN SIGNAsSIGNBeSIGNCs INTs 


VARTABLECFS)3 GO TO EXIT? 07739000 T 

L323 07740000 T 
LABELR} GO TO AGAIN 07741000 T 

_.-. L386: 07742000 T 
POLTSHER(CO)s GO To EXyT: 07743000 T 

L403: 07744000 T 

IF ELBAT£CII,ADORESS = STREAMV THEN 07745000 T 

BEGIN INLINE’ GO TO EX{T END 07746000 T 

FLAGC146)3 07747000 T 

IF TABLEC]"2) = ENDV AND MODE > O THEN 07748000 T 

BEGIN I « 1723 ELCLASS « ENDVs GO To EXIT END: 07749000 T 

1 «© [#13 ERRORTOG « TRUE} BLOCKCFALSED3 07750000 T 

ELCLASS « TABLE¢J+1I%1)s GO TO EXyT3 07751000 T 

L423 07752000 T 
NBLSTMT3 GO TO FXYyT3 07753000 T 

L433: 07754000 T 
FORSTMNT3 GO TO FXyT3 07755000 T 

L4&4s 07756000 T 
WHILESTMT$ GO TO EXIT? 07757000 T 

Lass 07758000 T 
NOSTMT# GO TO ExIT3 07759000 T 

L493 %115e 07759100 ¢ 
CASESTATEMENT$ GO TO FXIT3 %115@ 07759200 ¢ 

L543 07760000 T 
IFSTMT3 GO TO EXIT3 07761000 T 
L523 07762000 T 
GOSTMT# GO TO EXITS 07763000 T 

L533 07764000 T 
TOSTMT? GO TO EXIT3 07765000 T 

L5a3 07766000 T 

IF STEPI = DECLARATORS THEN 07767000 T 

REGIN 07768000 T 

IF ELBATEIJ,ADDRESS = STREAMV THEN IF STEP] = % 6 07768100 T 

LEFTPAREN THEN % 6 07768110 T 

BEGIN % 6 07768120 T 
ELCLASS*«TABLEC Tey"1) 3 07768130 T 

COMPOUNDTAIL 3 07768140 T 

GO TO EXIT 3 07768160 T 

END FLSE I « 1 = 13 % 6 07768170 T 

Ierps 13 % 6 07768180 T 
BLOCK¢CFALSE)3 END ELSE COMPOUNDTAIL3 07768200 T 
L46%L47°*L48iL50% 07769000 T 
Lag: 3115° 07770000 P 
EX1T! ENN STMT; 07771000 T 
68 IS 101 LONGs 

07991000 T 
PROCEDURE T1OSTMT3 07993000 T 
IF STEP] #¢ LITNO OR ¢GTI*ELBATELIJ.ADDRESS)>15 THEN ERRC(9OBIFLSE 07994000 T 

BEGIN EMITCELBATC 14117. ADDRESS&GTILAL 24784 I18GT1C 36844234993 07995000 T 

STEPIT 07996000 T 

END SCOPE STATEMENTS 07997000 T 
PROCENURE FORSTMT;} 08008000 T 
BEGIN 08009000 T 

OWN REAL Be STMTSTART»® REGO,RETURNSTORE »ADDRESsVeVRET» 08010000 T 
START OF SEGMENT ** 

T 

T 


08012000 


0068:005982 
00682006030 
0068:0061:2 
0068006230 
0068:0062!0 
0068006332 
0068:0064%0 
0068!0065'3 
0068!0067:2 
00683006773 
0068:0070!4 
0068007333 
0068%30076:0 
0068:!0079392 
00683007932 
0068:0080:0 
0068:0080:0 
0068:0081!2 
006830081432 
0068:0082:0 
0068!0082!0 
0068!0083!2 
00683008332 
0068:008430 
006820084320 
0068:0085!2 
00683008532 
0068%0086:0 
00683008630 
0068: 0087%2 
0068200872 
0068!:0088:0 
006820088314 
0068:0091:2 
00682009423 
006820092380 
0068:0094:0 
00683009434 
0068%0095%2 
0068!0097%2 
0068!:0098:0 
0068:0100!0 
0068#0100%0 
00683010010 
NEXT SEG 
0003:0495i2 
0003:0495ie2 
0003:0495%2 


000320500%1 . 


0003%0505%2 
0003%0505%2 
00031050533 
0003#050533 
0003#05053%3 


ORK OK 69 . 


0069#0000:0 
0069'0000:0 


3 


CC} 


)-12T 
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O Oo 
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O 


Coy IP, A> as. 23) 


CONSTANA»CONSTANB® CONSTANC3 
DEFINE SIMPLEB «= SIGNC#, FORMALV = SIGNA#, 
SIMPLEV = CONSTANA#s A = V#e Q = REGO#, 
OPpe = TRUF#» NESC = FALSE#s K = BRET#; 
LABEL EXIT# 
COMMENT PLUG EMITS EITHER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 
CONSTANT DEPENDING ON THE REQUIREMENTS3 
PROCEDURE PLUG¢CsoA)$ VALUE C,A$ REAL A? BOOLEAN C3 
IF C€ THEN EMJTNUMCA) ELSE EMITVCA.ADDRESS)3 


-COMMENT SIMPLE. DETERMINES IF AN ARITHMETIC EXPRESSION IS + OR = A 


CONSTANT OR A STtMPLE VARIABLE. IT MAKES A THROUGH REPORT 
ON ITS ACTIVITY, IT ALSO MAKES PROVZSION FOR THE RESCAN 
OF ELBAT cTHIS tS THE ACTION WITH K = SEF CODE IN THE 
TABLE ROUTINE FOR FURTHER DETAILS)3 
BOOLEAN PROCEDURE SIMPLECBsA,S)3 BOOLEAN BsS# REAL A$ 
BEGIN 
S « 1F STEPIT # ApOP THEN FALSE ELSE ELBATCLIJ.ADDRESS 
= SUB} 
IF ELCLASS = ADOP THEN STEPIT3 
IF ELCLASS 2 NONLITNO AND ELCLASS < STRNGCON 
THEN BEGIN K * K+13 SIMPLE « TRUES 
ELBATECI) © O&8COMMENTVE 22413 7I8KL16237!°1413 
INFOLO*#KI] « A « C$ B «& TRUE END 
ELSE BEGIN 
B « FALSE3 A © FLBATCII3 
SIMPLE « REALID €$ ELCLASS AND ELCLASS < INTID END? 
STEPIT END SIMPLES 
COMMENT TEST EMITS THE STEP*UNTIL FLEMENT TEST? 
PROCEDURE TESTS 
BEGIN 
IF NOT CONSTANB THEN 
BEGIN EMITOCSUB)# IF SIMPLEB THEN EMITV(B,ADDRESS) 
ELSE BEGIN 
EMITLC2+L™BRET)3 
EMITBCBBWseBUMPL»B)# 
END? 
EMETOCMUL)3 EMIT¢O) END? 
EMITOCIF S1tGNB THEN GEQ ELSE LEQ)$ EMIT €0)3 Leet 
END TEST3 
BOOLEAN PROCEDURE SIMPICALL)$ VALUE ALL* REAL ALLS 
RFGIN 
CHECKERCVRET+ALL)3 
ADDRES « ALL.ADDRESS3 
FORMALV « ALL.»[9%2] = 23 
IF T « ALL»CLASS > INTARRAYID OR T < BOOrD OR 
GT1 « (€T*B001D) MOD 4 < 1 THEN 
ERRCREALCT # 0) x 5t + 10093 
INT « GT1 = 23 
SIMP] «© T $ INTID END SIMPY3 
COMMENT STORE EMITS THE CODF FOR THE STORE NTO THE FOR INDEX3 
PROCEDURE STORF(S)3; VALUE S$ BOOLEAN S3 
BEGIN 
IF FORMALY THEN BEGIN EMITOCXCH)$ S « FALSE END 
ELSE BEGIN 
FMITLCADDRES)3 
IF ADDRES > 1023 THEN EMITOCPRTE) END 
T ¢ CREALCS)+1)%163 


08013000 
08014000 
08015000 
08016000 
08047000 
08018000 
080149000 
08020000 
08021000 
080227000 
08023000 
08024000 
08025000 
080296000 
080297000 
08078000 
080299000 
08030000 
08031000 
08032000 
08033000 
08034000 
08035000 
08036000 
08037000 
08038000 
08039000 
08040000 
08041000 
08042000 
08043000 
08044000 
08045000 
08046000 
08047000 
08048000 
08049000 
08050000 
080514000 
08052000 
08053000 
08054000 
08055000 
08056000 
08057000 
08058000 
08059000 
08060000 
08061000 
08062000 
08063000 
08064000 
08065000 
08066000 
08067000 
080468000 
08069000 


AN AA BAAN HAA NA HAA TAH AAA HRSA HA Ht SA HHS 


0069!0000:0 
00692000030 
0069%0000:!0 
0069#0000:0 
0069?0000:%0 
00692000030 
0069%0000:0 
006920000:0 
0069:0000!0 
00697000333 
00692000333 
0069000333 
006930003!:3 
00693000333 
00693000333 
00692000333 
0069%0003%3 
00692000634 
00693000831 
0069300;0:0 
006920011%2 
0069780014 4%4 
00693001733 
00693002133 
00693002210 
00693002430 
00693002631 


006930029%2 


006930029932 
0069!0099%9 
006920090930 
00692003024 
0069%0032?%14 


006913003420. 


00693003630 
006930038!0 
006930038:0 
00693003933 
00692004382 
0069#0044:0 
00691004430 
00692004430 
00693004630 
0069%004783 
0069004932 
0069#005220 
0069!005431 
00693005782 
00693005884 
006930062380 
006940062!0 
00693006230 
0069:006210 
006930065!2 
0069006523 
00691006631 
0069!0068%4 


Co 3 


D) 
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EMITOCCTF INT THEN [+512 ELSE 4xT)+4) END STORES 08070000 T 0069:0070:0 

COMMENT CALL EFFECTS A CALL ON THE INDEX$ 08071000 T 0069:0074:0 
PROCEDURE CALL¢S)3 VALUE S3 ROOLEAN S3 08072000 T 00693007430 
BEGIN 08073000 T 00693007410 

IF SIMPLEV 08074000 T 0069:0074:0 

THEN IF S THEN EMITVCADDRES) ELSE EMITNCADDRES) 08075000 T 00693007532 

ELSE BEGIN 08076000 T 0069:0078t0 
EMITLC2+L°VRET)3 08077000 T 0069:0079!2 

EMI TBCBBWseBUMPLeV)3 08078000 T 00693008031 

IF S THEN EMyTOCLOD) END END CALLS 08079000 T 00691!0083!2 

PROCEDURE FORLISTCNUMLE)$ VALUE NUMLES BOOLEAN NUMLE3 08080000 T 00693008431 
BEGIN 08081000 T 0069:0084!1 
PROCEDURE FIXCSTOREs BACK» FORWART*sSTART)3 08082000 T 0069:0084!1 
START OF SEGMENT ##%e* #4 #4 k 70 

VALUE STORE» BACK sFORWARTsSTART; 08083000 T 0070%0000:0 

REAL STORE» BACKsFORWART»STARTS 08084000 T 0070:0000:0 

BEGIN 08085000 T 0070:0000:0 
EMITB¢CGETCFORWART#=1) sFORWARTs»START)3 08086000 T 0070%0000!0 

IF RETURNSTORE # 0 08087000 T 0070000230 

THEN BEGIN 08088000 T 0070:0002%, 

L « STORES EMITNUMC(B*BACK)3 08089000 T 0070000333 
EMITPAIRCRETURNSTORE*STD) END END FIX3 08090000 T 007020005:3 

INTEGER BACKFIX, FORWARDBRANCHs FOOTs STOREFIX3 08091000 T 00703000631 

LABEL BRNCHsEXIT3 08092000 T 00703000634 

STOREFIX « L3 @ «© REALCMODE=0)4+33 08093000 T 0070:0006?1 

FOR kK « 1 STEP 1 UNTIL @ DO EMITOCNOP)3 08094000 T 00703000933 

IF NUMLE 08095000 T 007030014:0 

THEN BEGIN 08096000 T 0070:0014:0 

RBACKFIX « L3 08097000 T 0070:00;4%4 

1F FORMALV THEN CALL(DESC) END 08098000 T 0070:004533 

ELSE BACKFIX « V + REALCSIMPLEV) 913 08099000 T 0070:0017:2. 

08400000 T 00701800;9%2 

AEXP} 08101000 T 0070:200;,9%2 

COMMENT PrIcK UP FIRST ARITHMETIC EXPRESSION 08102000 T 00703004933 

zs IF ELCLASS = STEPV 08103000 T 00703001933 
i) THEN BEGIN 08104000 T 0070:0020:0 
COMMENT HERE WE HAVE A STEP ELEMENTS : - 08405000 T 0070:0021:2 
RACKFIX « RUMPL3 08406000 T 0070:0021!2 

‘oe COMMENT LEAVE ROOM FOR FORWARD JUMPS 08107000 T 0070:002231 
TF FORMALV THEN CALLCDESC)3 CALLCOPDC)3 08108000 T 0070:002231 

COMMENT FETCH INDEX$ 08409000 T 0070:0025%2 

IF I > 70 THEN BEGIN NXTELBT « 43 | « O END 08110000 T 00703002532 

ELSE REGO « 73 08111000 T 0070:0027:3 

IF SIMPLEB «© SIMPLECCONSTANBeBsSIGNB) AND 08112000 T 0070:0029%2 

CELCLASS = UNTILV OR ELCLASS = WHILEV) 08113000 T 0070003030 

THEN BEGIN 08114000 T 0070:0031:2 

COMMENT WE HAVE A SIMPLE STEP FUNCTIONS 08115000 T 00703003332 

j PLUGCCONSTANA »8)3 084116000 T 0070:!003332 

END ELSE BEGIN 08117000 T 0070:0034:0 

COMMENT THE STEP FUNCTION IS NOT SIMPLE! WE CONSTRUCT A 08118000 T 00703003434 
SUBROUTINE: 08119000 T 0070:%0034%4 

1 ¢« IF I < 4 THEN O ELSE REGOS STEP]IT? 081270000 T 00702003434 

SIGNB « CONSTANB « FALSF3 08121000 T 0070:0038:0 

EMITCO)$ Be L$ 08122000 T 00702003932 

AEXP$ EMITOCXCH)? 08123000 T 0070:004034 

BRET « L3 08124000 T 0070%0042:0 

EMITOCBFW) END$3 08425000 T 00705004231 


{) (> 


() 


CF Cy 


toy AG) 


Ch A 


Oo 


(3 


COMMENT 


COMMENT 


we as COMMENT 


COMMENT 


BRNCH8 


EX Ts 


EMITOCREALCSIGNB)X32+ADD)3 
FMITBCBFWeBACKFIXeL)3 
IF ELCLASS = UNTYLV 
THEN BEGIN COMMENT STEP#UNTIL ELEMENT? 
STORECTRUE)$ IF FORMALV THEN CALLCOPDC)}3 
STEPIT$ AEXPs TEST END 
ELSE BEGIN COMMENT STEP#WHILE ELEMENT? 
IF ELCLASS # WHILEV THEN 
BEGIN ERR¢153)% GO TO EXyT END3 
STEPIT? STORECFALSE)$ BEXP END END 
ELSE BEGIN 
WE DO NOT HAVE A STEP ELEMENT; 
STORECFALSF)3 
IF ELCLASS = 
THEN BEGIN 
WE HAVE A WHILE ELEMENT? 
STEPIT# BEXP END 
ELSE BEGIN 
ONE EXPRESSION ELEMENT? 
IF ELCLASS # COMMA THEN BEGIN 
EMITBCBFWeBUMPLoL+2)% BACKFIX « L END 
ELSE BACKFIX «.L + 23 
L ¢ L+13 EMITCBFW)$ GO TO BRNCH END END; 
THIS 1S THE COMMON POINT; 
TF ELCLASS = COMMA THEN EMITLNG 
EMITCBFC)3 
FORWARDBRANCH « Lg 
TF ELCLASS = COMMA, 
THEN BEGIN 
STEPYT: 
FORLIST¢ TRUE)? 
FIXCSTOREF IXsBACKFIX»FORWARDBRANGHsSTMTSTART) END 
CLSE BEGIN 
IF ELCLASS # pov 


WHILEV 


L « Leis 


DIALA * DIALB « 03 


THEN BEGIN ERRC154)3 REGO*LS GO EXIT ENDS 
_STEPLT 
IF NUMLE THEN FOOT t= GETSPACECFALSE,"1)3 % TEMP, 


STMT} 


IF NUMLE THEN BEGIN 

EMLTV¢RETURNSTORE © FOOT)’ EMITOC(BBN) END 
ELSE BEGIN 

EMI TBCBBWeBUMPL, eBACKFIX)3 
STMTSTART « FORWARDBRANCH3 
CONSTANTCLEAN? REGO © L? 
FIXCSTOREFIXsBACKFIX*#FORWARDBRANCHsL) ENDS 

END FORLIST? 


RETURNSTORE « 0 END3 
Bo « Li 


REAL TteT2sT3eT43 


NXTELBT «© 13 JY « O3 

STEPYT? 

IF SIMPICVRETe¢ELBATELII) 

THEN BEGIN 

1F STEPy # ASSIGNOP THEN BEGIN ERRC(452)3 
XMARKCASSIGNREF)$ % FOR STATEMENT 
Ti « LS IF FORMALV THEN EMITNCADDRES)3 
K « Q3 


GO EXIT END} 
%110- 


70 


1s 


08126000 
08127000 
08428000 
08129000 
08430000 
08131000 
08432000 
08433000 
08134000 
08135000 
08436000 
08437000 
08138000 
08139000 
08140000 
08141000 
08142000 
08143000 
08144000 
08145000 
08146000 
08447000 
08148000 
08149000 
08450000 
08151000 
08152000 
08153000 
08454000 
08155000 
08156000 
08157000 
08158000 
08159000 
08160000 
08161000 
08162000 
08163000 
08464000 
08165000 
08166000 
08167000 
08168000 
08169000 
08170000 
08171000 
08472000 


100 LONG 


08173000 
08174000 
08175000 
08176000 
08477000 
08478000 
08178100 
08179000 
08480000 


AA MAABH AAA AH BD AHHH AHA HAHA AAA A AA HS A A te BAAS I 


0070:0043:3 
0070:0045%2 
0070300463 4 
00705004631 
00703004733 
00703005030 
00703005123 
00708005230 
00703005234 
00702005481 
0070:0056!0 
00702005684 
0070!0056314 
00701005733 
00702005723 
007030058214 
00702005834 
0070:0059:3 
0070300600 
007030060:0 
00703006133 
0070:0065!%2 
0070006681 
007030069%2 
007030069:2 
00703007230 
0070:0073%2 
0070:007532 
0070:0075:2 
0070:0076:0 
00702007684 
0070:007733 
0070°0079%2 
0070!007933 
0070:0079%3 
00702008284 
0070!0083!2 
00702008533 
0070:008630 
0070:0086:0 
0070:0087%2 
0070:0089%2 
0070:008933 
0070009284 
00701009420 
0070:009532 
00705009634 


NEXT SEG 69 


0069100841 
006923008434 
0069!0086?14 


00692008732. 


00693008733 
00693008922 
0069:00914%3 
0069:0096:0 
0069%0098:0 


(> 


() () ‘oe 2 Cy () 


O 


Oyo 35 


Ci? > #C) 


O- so 


(e- HD -ey  D 


C) 


() 


— 


IF SIMPLECCONSTANAsA®SIGNA) THEN 
IF ELCLASS = STEPV THEN 
TF SIMPLECCONSTANB,B»SIGNB) THEN 
IF ELCLASS = UNTILV THEN 
IF SIMPLECCONSTANCsQ>»SIGNC) THEN 
IF ELCLASS = DOV THEN 
BEGIN 
PLUGCCONSTANAsAD3 
IF SIGNA THEN EMITOCCHS)3 
RETURNSTORE «¢ BUMPL,$ ADJUST$ CONSTANTCLEAN? 
STMTSTART © L3 
STEPIT? 
T1 © €€CC4096 xX RETURNSTORE+STMTSTART) x24 
REALCCONSTANB))x?+ 
REAL CCONSTANC) ) x94 
een REALCSIGNB))x2+ 
REALCSIGNCY 
T2 «+ VRET3 
T3 « RB 
T4 ¢« Q3 
STMT3 
S1tGNC « BOOLEAN(T1.£047%1])93 
SIGNB + BOOLEAN(T1,£4621])3 
CONSTANC « BOOLFANCT1.(45211)3 
CONSTANB « BOOLFANCTL,(C44#1])3 
STMTSTART « 171,732312]3 
ReETURNSTORE « 74,720%42]3 
VRET « T23 
Boe T33 
Q« Ta} 
STMPLEVe SIMPICVRET)3 
IF FORMALVY THEN EMITNCADDRES)$ EMITVCADDRES)3 
PLUGCCONSTANBsB)3 
EMiTOcIF SIGNB THEN SUR ELSE ADD)3 
EMITB¢BFrWsRETURNSTOREsL)3 
STORE ¢ TRUE); 
IF FORMALV THEN CALLCOPOC)3 
PLUGCCONSTANC2Q)3 
IF SIGNc THEN EMITOCCHS)?3 
SIMPLEB « TRUE? TEST$ EMITLNG: 
EMITBCBBCs+BUMPL»STMTSTART)3 
GO TO FXrT END 
l«¢ 2% K « Q} 
STMPLEV « SIMPICVRET)3 
Vo« Tl END 
ELSE BEGIN 
FMITCO)$ V © L3 SIMPLEV « FALSE FORMALV © TRUES3 
VARTABLFECFRI$ EMYTOCXCH)$ VRET « Le EMITOCBFW)3 
TF ELCLASS#ASSIGNOP THEN BEGIN FRRC152)3 GO EXIT END? 
FND3 
STEPIT# FORLISTCFALSE)# L « REGO? 
- EXIT! «K «© 0 END FORSTMT? 
REAL PROCFOURE REEDS 
BEGIN 
LABFL FOF? INTEGER LedeK$ 


69 1S 


08181000 
08482000 
08183000 
08184000 
08185000 
08186000 
08187000 
08188000 
08189000 
08190000 
08191000 
08192000 
08193000 
08194000 
084195000 
08196000 
08197000 
08198000 
08199000 
08200000 
08201000 
08202000 
08203000 
08204000 
08205000 
08206000 
08207000 
08208000 
08209000 
08740000 
08211000 
08212000 
08213000 
08214000 
08215000 
06216000 
08247000 
08218000 
08219000 
08220000 
08221000 
082272000 
08223000 
08224000 
08225000 
08726000 
08227000 
08228000 
08229000 
08230000 
08231000 
08232000 


AAA RANA AN AAA AAA HA HAA FHT AAA SIH A A st a i 


169 LONGs 


08999000 
08999025 
08999050 


T 
T 
T 


006920099!%0 
0069101490030 
00692010133 
0069'0103%2 
00698010484 
0069201090680 
00692040783 
006920408:0 
00698010922 
00691011024 
006920143%2 
00693011430 
00697014484 
00693011630 
00693034732 
006920118:0 
00693011922 
006930420:0 


00692012482. 


006910429133 
0069:0422t4 
00693012312 
0069:01494:0 
00693012533 
0069301426:1 
00698042830 
006920142932 
00692013034 
00693043132 
00693043220 


0069301323 4. 


00692013430 
006930136:0 


00692033722. 


00692013933 
00693044031 
00693014133 
006920143!%2 
00692014430 
00693044533 
006930447%2 
0069#044983 
0069'0451%2 
0069:0152%4 
00693045323 
00691015434 
00693015522 
00693015830 
00693016182 
00693046313 
006930146323 
00694046583 
NEXT SEG 

0003!0505!3 
00031050533 
00032050583 


START OF SEGMENT eee Rd He x 7 


3 


1 


Cy 


} 


ard i 
a 


ines Formas, In 
Ce 


Ses Sis, 


Ae 


FOF: 
FND 


STREAM PROCEDURE MOVECNoF, 
BEGIN S]t=sF3 p[keT} 
Jism {3 
REANCCONTSKFNOJ CEO]; 
REENt=f=FETCHCMKABS(CODISK(1)))3 
KS=MKABS(CODE(O)) #43 
WHILE J#J>30 00 
BEGIN 
MOVE C30»CODISK(9),K);3 
REANCCONISK)3 
ENDS 
MOVE CI *JeCONISK(0)9K)} 
REANCCODISKICEOF]3 


VALUE 
N Wos 


Uw 


T 
») 


~ 
- 


KisK+303 


REEn3 


PROCEDURE RIGHT¢L)3 VALUE Li INTEGER Li 
BEGIN 


INTEGER J[oJ3 


Pis¢L+7) DIV 4;3 


MOVE CY oe Te CODISK(0))3 
MOVE C29 eCODE(O) sCODISK(1))3 
WRITECCODISK)3 


$399} 


WHILE reJ>0 n0 


BEGIN 

MOVEC 30° CODEC) *CODISK(O))$3 
WRITECCODTSK)$ 

JtzJ+303 

END? 


END RIGHTS 


COMMENT THE PROGRAM ROUTINE pOFS THE INITIALIZATION AND 


FOR THF REST OF THE COMPILER, 


N,T3 
END MOVE; 


JisJ+303 


THE WRAPUP 


THE MAIN PROGRAM OF THE COMPILER 


IS SIMPLY A CALL ON THE PROGRAM ROUTINES 


PROCEDURE PROGRAM} 


BFGIN 


STREAM PROCEDURE MDESCCWD>TOLOC)# VALUE WO3 


BEGIN DI*LOC WD$ DSe SETSSte LOc WO; 
DEFINE STARTINTRSCH426#3 
LABEL L413 


COMMENT 


COMMENT 


DieTOLOC#DSeWDS ENDS 


LISTOGS=LISTER*=BOOLEANCI*ERRORCOUNT,£46211)3 


 NOHEADING t= TRUES 
ERRORCOUNT ts 03 


LISTOG TS NOT SET BY DEFAULT ON TIMESHARINGS 


ERRMAX!=9993 % MAY BE CHANGED IN DOLLARCARD, 


RASENUM$=100003 


ADDVALUES= 
DEFAULT VALUES FOR "$SF@" OPTY]ONS 


10003 NEWBASE2=TRUES 


LASTUSED #= 43 % FOR yNITIALIZATION, 
NEXTINFO « LASTINFO « LASTSEQROWX256+LASTSEQUENCE 413 


PUTNBUMP(0)3 
GT) 


€ wo we 


MDESCCGT1> INFOLLASTSEQROW*LASTSEQUENCE))3 


BLANKETCOsINFOLLASTSEQROW*PLASTSEQUENCE])3 % FOR "fg CHECK", 
® INTTIALIZATION OF NCROFCR» 


READACARD$ 


AND LCRe AND 


vt 


1s 


72 18 


08999075 
08999100 
08999425 
08999150 
08999175 
08999200 
08999225 
08999250 
08999975 
08999300 
08999325 
08999350 
08999375 
08999400 
08999425 


47 LONG 


08999450 
08999475 
08999500 


START OF SEGMENT 


08999525 
08999550 
08999575 
08999600 
08999625 
08999650 
08999675 
08999700 
08999725 
08999750 
08999775 
08999800 


35 LONG 
-09000000 


09001000 
09002000 
09003000 
09004000 
09005000 


START OF SEGMENT: 


09006000 
09024000 
09025000 
09028000 
09028010 
09028050 
09028900 
09028910 
09028920 
090298930 
09029000 
09033000 
09034000 
09034100 
09034200 
09034500 
09035000 


0071:0000:0 
0071:0000:0 
0071:0001:2 


0071!000830 
00715004420 
00715001982 
00713000084 
0071'0000%1 
007180027%2 
0071:0031%2 
007420031433 
0071:0036:0 
00712004132 
0071%0042:0 
NEXT SEG 
0003205053 3 
0003'0505!3 
00035050523 


eer eS 3 7 


0072:0000:0 
0072:0001%3 
00722000533 
00723004234 
00728004624 
007230047132 
00723004933 
00724001933 
00721002631 
0072003034 
00723003133 
00723003270 
NEXT SEG 
00034050583 
0003!050533 
0003%050533 
0003!050533 
00032050533 
0003%0505!3 


oR Ir Kg 7 


0073%0000:0 
00735000133 
00731000183 
00731000133 
0073%0005%2 
0073°0005%2 
0073!000630 
00733000634 
0073%000733 
0073000933 
00732000933 
00732001034 
0073%0043%2 
0073:0014:0 
00733001532 
007330017%2 
0073!0019%2 


. 00711000382. 


3 


2 


3 


3 


C) C7 cy ms 


Co. 3 ay 


COMMENT 


% READS FIRST CARN INTO CARD BUFFER, 
13 % ASSUMES CARD ONLY UNTYL TOLD DIFFERENTLY, 


LASTUSED ts 
NXTELBT « 13 


PRTTePRTIMAXePRTBASES 
MRCLEAN « TRUES 


FILL TENC*] 


0CT1771110463422054» 


OCTL7TAP1E5630517247>5 
0CT1714266046116735» 
007T165104034724 1213» 
O0CT1622047303622767 » 
00T15740347263130465 
0CT1547730366574502, 
00T1501736764172732, 
0¢71453616220020057, 
007T1427301711237333>, 
007T1361637254513731 >» 
0071333411341150223>» 
007T1306676337663537 >» 
OCT124153277H515275» 
0¢71213215561353071% 
0071166314631463146, 
OcT1121440000000000» 
OcT1073032400000000» 
0CT1045753604000000 


0070001351935564000 
0067T0032657142036440 
Oe T00654321274 4 3543 


7-7 


= 


0¢70421265707274266, 
0¢7T0452513201307703, 
0¢T0705126764556310, 
0¢7T02412906170175347, 
00T0272356132665013, 
00T0324644141345435> 
00T03611316646250?7> 
00T0412227375067064, 
0¢T0444367706263476, 
0¢T0501060411731665, 
0¢T0532106607305375, 
007T0564132154331566, 
0067T0624101201436414205 
00T0651773450267005- 
00T0703707272645 341» 
0CT0737461304707100, 
006707716654350430723 


COMMENT 


Frid 


06TN6700006000000090, 


0CT0700001940000002» 
0C6T0710001460000002>» 


THE FIRST 


OCT17613326003264675 


0C0T17326293176643120, 
O0CT1705343457542525» 
0¢71641250441111455» 
00T1612461164567564, 
0¢71565044113775657, 
O0cT1521171646433362, 
0c071472325741231521, 
0¢T1444561664024072, 
0CT1401116227350722, 
007T1352200727636717, 
007T1324313631402270, 
0C0T1261045602764047, 
007T1232061573640554, 
OcT1204061115645707, 
0c71141000000000000, 


OcT1111750000000000, . 


0¢71063641100000000, 
0CT1037346545000000, 

0070011643245121000 

00T0043432772446150 

0eT0076740555316473 
0¢79131543271153343, 
0¢T0163236041571663, 
0070216354561711772, 
0¢79025144762623464)4, 
0¢79303051561442016, 
0070336011371636745, 
0CT0371360241772234, 
0070422675274304701, 
0cT0455465667740415, 
0¢70511274514320242, 
0070542530351166674, 
0¢T95751606074290123, 
0070631244417455344, 
00T0662372362344606, 
0¢0790714671151416632, 
0¢70751137556607072, 


THEN ORDINARY RESERVED WORDS» 
THEN INTRINSIC FUNCTIONS 


INFOr1>*) WITH 


"oSTOOO', 


"ODIO00"» 
"OCTOOO's 


>. 


, 


START FILLING TABLES NEEDED TO COMPILF A PROGRAM3 
WITH 


0CT1751621340414205» 


0CT1723370036413744>, 
007167663437 347 30528 
0¢71631522551333770% 
0071603175424725521» 
0¢71556255136775233>» 
0cT1511430220142057, 
0071463013331500045, 
00T14357162410341115 
007T1371341675243407, 
00T1342641115606502» 
OCTL315376577702746» 
0CT1251257143561061» 
OcT1222476132610706» 
0¢T1175075341217270> 
OcT1131200000000000» 
OcT1102342000000000» 
0¢T1054611320000000, 
00T1011124027620000» 

00T0022214116345200 

007T0054341571157402 
0¢T0111053071060221 
0¢T0142074147406234, 
0¢T0174105452130240, 
0¢T0231004771627437> 
0¢T0261764573704011,5 
006T0313664115752661, 
0¢7T03474136702706536- 
0¢T0401654312370703> 
007043345455 3366062>» 
0¢T0467003245730521, 
00T0521553637404312, 
0¢70553256443424453, 
0¢T06064147514324150, 
00T0641457523370635>» 
0CT06730710570357A7>» 
0¢T0726047403722400, 
00T0761367512350710,» 


THIS IS THE FILL FOR THE SFCOND ROW OF INFO? 
ITEMS ARE STREAM RESERVED WORDS, 


2256 


2258 
2260 


»- = 


09036000 
09037000 
09038000 
09039000 
09040000 
09040400 
09041000 
09042000 


START OF SEGMENT 


74 1S 


09043000 
09044000 
09045000 
09046000 
09047000 
09048000 
09049000 
09050000 
09051000 
09052000 
09053000 
09054000 
09055000 
09056000 
09057000 
09058000 
09059000 
09060000 
09061000 
09062000 
09063000 
09064000 
09065000 
09066000 
09067000 
09068000 
09069000 
09070000 
09071000 
09072000 
09073000 
09074000 
09075000 
09076000 
09077000 
09078000 
09079000 
09080000 


115 LONG 


09081000 
09082000 
09083000 
09084000 
09085000 
09086000 


START OF SEGMENT 


09087000 
09088000 


T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
i 
T 
T 
T 
T 
T 
T 
T 
a: 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
’ 
T 
T 
T 
T 
1 
T 
* 
T 
T 


00733004933 
00731003933 
00731002030 


0073800212. 


007340022:0 
0073%0093%2 
0073*0023%2 
0073'0023:3 


OR Ok 74 


0073!002434 
0073:002434 
OO73:0024t, 
00738002431 
00733002414 
00732002424 
00731002484 
0073002481 
007330024:4 
00731002431 
00737002431 
00732002431 
00733002431 
00732002434 
0073:002434 
0073:0024:1 
ON7310024624 
0073:002431 
0073:0024!4 
0073:002431 
0073:002431 
0073:0024%1 
0073:002434 
00733002434 
00734002434 
0073:0004%4 
0073:002434 
00732002431 
0073300044 
0073%*0004%4 
00733002434 
00733002431 
0073:00204%,4 
00732000484 
00732002431 
007370020494 
00732002434 
0073%0024%1 


NEXT SEG 73 


0073:0024:1 
00738002414 
0073:002434 
00738002431 
0073*0004%)4 
00733002583 


Per reese. 75 


00732002634 
007320026314 


C) C) 


Cy. GO a 3G} 


CY <P or 3s Oe Er Gs eA 


@) 


C) 


i 


O0CTN720001630000002. 
07T0730000530000002>, 
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00T003140143» 
00700160143, 


COMMENT #3 


COMMENT 73 
COMMENT +3 


COMMENT 43 
COMMENT ; 
COMMENT <3 
COMMENT x3 
COMMENT 3&3 


COMMENT "3 
COMMENT a3 


COMMENT) » 
COMMENT # 
COMMENT Jj 


COMMENT 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


0€T000000000010000090, 


0CT1160000000120000, 
0071370440250002662, 
0C€T0000000000000000, 
0CT1210000000000000» 
0CTO0450000000000000, 
0€671330401040000000, 
0€T0000000000000000, 
0€T0470000000000000, 
0€T1240000000160000, 
0€7T1370450250003470» 
0CT1410442000000000» 
0CT0000000000020000» 
0¢71370451050002460, 
00T0000000000140000, 


SFS A 00 
SFD A 014 
SYNTAX ERRORO? 
INC A 03 
SRS A 04 
SRD A 05 


SYNTAX ERRORO6 
SYNTAX ERRORO7 
CRF Ae SFS 008 
CRF As SFN 009 


MOD 1257035835213) sSTACKHEADCGT3]«GT1)3 


COMMENT 


COMMENT 
COMMENT 


COMMENT 
COMMENT 
COMMENT 


COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 


we 


we we we We we ‘se wa Ve we 


sN RNA wY ¥ 
me we We we We We we 


76 IS 


START OF SEGMENT 


77 1S 


START OF SFGMENT 


09432000 T 0073:0028:1 
09432100 T 0073:002831 
09132200 T 00733002831 
09132300 T 0073002631 
09132400 T 00733002824 
09432500 T 00733002831 
09132600 T 00733002831 
09132700 T 00733002831 
09432800 T 0073:0028:4 
09132900 T 0073:00283:14 
09133000 T 0073:0028%14 
091433100 T 00733002831 
09133200 T 0073:002831 
09133300 T 00733002831 
09133400 T 0073:0028%4 
09133450 T 0073:00283} 
09433500 T 0073:0028%4 
09433600 T 007330028314 
09133700 T 0073002831 
147 LONGs NEXT SEG 73 
09133800 T 00733002834 
09133900 T 0073:!0034:0 
09134000 T 0073380040:0 
09434100 T 00732004533 
09434200 T 0073:0049:2 
09197000 T 0073!005332 
09198000 T 0073:005332 
09199000 T 00733005383 
2K ok OK ok OK ek 
09200000 T 0073005431 
09201000 T 00733005484 
09207000 T 00731005434 
09203000 T 00733005434 
99204000 T 00733005434 
092905000 ~T 00733005431 
09206000 T 00731005434 
09207000 Tt 0073005434 
09208000 Tt 00733005431 
09209000 T 0073:!005434 
09210000 T 00733005431 
09211000 T 00733005421 
09212000 T 0073;005494 
09243000 T 0073:0054%1 
09214000 T 00733005431 
32 LONG NEXT SEG 73 
092145000 T 00733005434 
09246000 T 0073:0055!2 
se KK ok Kk ae 
09217000 T 007330056%4 
092,8000 T 0073%0056?4 
09249000 T 00733005634 
09220000 T 00732005634 
092924000 T 0073%005634 
09292000 T 0073:005634 
09923000 T 00732005631 
09224000 T 00733005634 
09995000 T 0073:005634 


‘a 


78 


CS 


() C) Go C) co C) C) 


C) 


C) 


Cy. “SE A 


3 


Ce 1. Oy 


O} 


C 


Ce sO. YOL Se: =@ 


O 


O 


e 


O 


© 


Cy 3 


0cT00470143>, COMMENT CRF Ag JFW Oo 140 09226000 T 0073:0056#4 
0cT00400143, COMMENT CRF As INC 011 ; 092297000 T 0073005634 
007100300443, COMMENT CRF Ay SRS O12 ; 09978000 T 0073:0056%4 
06T00170143> COMMENT CRF Avr SRD 013 ; 09909000 T 0073!0056#14 
ocToO000, COMMENT SYNTAX ERROR14 H 09230000 T 00738005634 
ocToooo, COMMENT SYNTAX ERROR15 ; 09231000 T 00738005631 
00710153» COMMENT RSA A 16 3 09932000 T 0073#0056!4 
OCTOIO4, COMMENT RDA A 17 H 092933000 T 00732005631 
OcTO150.s COMMENT RCA A 18 3 092934000 T 0073!0056!4 
0cT004201430049, COMMENT SEC O» CRF Ase SEC O 19 3 09935000 T 0073%0056%4 
OcTO122» COMMENT SES A 20 3 09236000 T 007330056?4 
OcTO10Gs COMMENT SED A 21 5 09237000 T 0073%0056!1 
OcTO0000, COMMENT SYNTAX ERROR22 ; 09238000 T 00732005631 
ocToOcno, COMMENT SYNTAX ERROR23 ; 09239000 T 0073%0056t1 
OcT0056>» COMMENT TSA O 24 3 09240000 T 00730056! 4 
ocTOO0O, COMMENT SYNTAX ERROR25 ; 09241000 T 00732005634 
ocTOQ00, COMMENT SYNTAX ERRORZ6 3 09242000 T 0073:0056:4 
ocTOO00, COMMENT SYNTAX ERROR2?7 ; 09243000 T 0073:0056!4 
ocTQ0dds COMMENT SYNTAX ERRORZ8B 3 09244000 T 0073005634 
NCTOO07» COMMENT TDA QO 29 ; 09245000 T 007340056314 
OcTOO00s COMMENT SYNTAX ERROR30 H 09246000 T 0073!0056?4 
ocToooo, COMMENT SYNTAX FRROR31 ; 09247000 T 0073%0056%4 
OCTO115.» COMMENT SSA A 32 H 09248000 T 0073:0056!1 
OcTO{14> COMMENT SDA A 33 ; 09249000 T 007320056114 
OCTO{54, COMMENT SCA A 34 H 09250000 T 0073005634 
ocTOs413 COMMENT STC A 35 3 092951000 T 00738005654 
78 1S 36 LONGs NEXT SEG 73 

FILL OPTIONSrF*] WITH "SCHECK",0, % Oo4 092954208 T 00733005614 
START OF SEGMENT ke RRR 79 

"6DEBUG",0O, % 203 09951212 T 0073:!0058:0 

"ADECKO"S 0+ B 4e5 092951214 T 0073:20058!0 

"6FORMA",0, % 697 09251216 T 0073005850 

"QINTRI"2O, B 899 09951218 T 00733005830 

"SLISTA',O, % 10911 09251220 T 0073005860. 

"4LISTO"S0, % 12013 09251224 T 0073!0058:0 

"SLISTP",0, % 14615 092951228 T 0073:0058:0 

a "3MCP00",0,. > 16917 09251230 T 007330058:0 
"A4TAPEO",O, & 18,19 09251232 T 0073:0058:0 

"4NESTO",0O, & 20e21 09251234 T 0073:0058t0 

"3NEWOO",O, B 22923 09251236 T 007320058:0 

"7NEWIN' 20% % 24025 09251240 T 0073:0058:0 

"AOMITO",O, % 26027 09251244 T 007380058:0 

iste 4$0000",0, % 28229 09251248 T 007320058?0 
"3PRTO0O",0, 4 30231 09251252 T 007330058:0 

MSPUNCH Ts 0s % 32-33 09251256 T 0073:0058:0 

"SPURGE™ sO» % 34935 09251260 T 0073:0058:0 

WASEGSON,O, % 36237 09251264 T 0073:0058:0 

"3SEQ00", 0, % 3839 092951268 T 0073:0058:0 

2 "6SEQER sO, % 40241 092951272 T 0073'0058:0 
"6SINGL",0, % 42,43 09251276 T 0073:005880 

WOSTUFFY',0O, 2 44945 09951278 T 0073%0058!0 

ae WMAVOT DO Os & 46947 09951280 T-. 0073%20058:0 
"SVOTDT", 0, % 48,49 09251284 T 0073:0058:0 

"HBENDO", 0, ’ 50» 51 09251285 c 0073:0058:0 

"AXREFO"S 0,5 % 52, 53 09251286 c 00732005880 

0: 09251288 T 0073:0058:0 
79 «15 55 LONG» NEXT SEG 73 


'«) 


5} 


() ‘@) C) C) 


() 


) 


la 
t 


Irc sy 
C) 


Forms, 


Oe 3 6 


. 


O “2 


O 


O 


Q) 


Mai seioth aS. . 1 DO UNTIL STEPI = BEGINV3 
aTi eat tt, 
INTOG © INTOG AND TRUEFS & 
ads dan be, DTSKADR « IF INTOG THEN INTRINSICADR ELSF 23 
MDESCCGTI+ INFOCLASTSEQROW*+LASTSEQUENCE])3 
MNESCCGT1s» INFOCLASTSEQROWsLASTSEQUENCE#1)) 
Set ste, 1B Ta MDESCCGT1» INFOLFLASTSEQROWsLASTSEQUENCE=2)) 
STmT3 
LOCK¢STUFF)3 
CLOSE CCARD*sRELEASE)3 
IF LASTUSED #4 1 THEN CLOSECTAPEsRELEASE)3 
IF NEWTOG THEN LOCKCNEWTAPEs*)3 
IF TecCL+3201tV 4) + CORADR > 4080 THEN FLAG(040)3 
IF NOT NOHEADING THEN % PRINT THESE THINGS IF ANY 
BEGIN % LISTING HAS BEEN DONE, 
STREAM PROCEDURE PANCTsFIEL*NER®LSQ)3 VALUE NEReT$ 


. 
s 
r) 
, 


BEGIN DI ¢« FIEL$ 44CDS«eLIT ")3 
St « LSQ3 DS « WOSs Sy eFIEL# DS « 3 WDS3 
DY} « FIFL3 DSe* 28 LITY*NUMBER OF ERRORS DETECTED = "3 
St « LOC NERS DS « 3 DEC? DS « 22 LIT ", COMPILATION TIME = "3 
St « LOC Ts} DS « 4 DECs DS « 9 LIT ™ SECONDS,"$ END3 
STREAM PROCEDURE PFNCFIL*®PRTSIZsBASF eCOREsDISK)3 
VALUE PRTS1Z»BASFeCOREsDISK3 
BEGIN DIeFIL$ DS « 9 LIT"PRT SIZFH"3 St*LOc PRTSyz3 
NS « 3 DEcs DS«414 LIT™ BASE ADDRESS="3 
ST«LOC BASES DSe4 DECS DS+10 LIT" CORE REQ=N3 
ST*LOC CORE? DSe4 DECA DS#10 LIT" OISK REQ=N; 
St+LOC DISK? DSe5 DEC3 DSe61 LIT ™ 3 
END PENS 
STREAM PROCEDURE FINALAXCLINE* Ne SEQ)? VALUE NE 
REGIN DI « LINE? 15¢08 « @ LIT ™ "73 
Nr « LINE? DS « 31 LIT “NUMBER OF ACCIDENTAL ENTRIES = "3 
Sj « LOC N3 DS « 3 DEc?# DI « O1+83 
St « SEQ# Sy « StHi16# OS © 8B CHR 
END? 
TF AXNUM #0 THEN 
BEGIN 
FINALAXCLINEOJ*AXNUMs INFOLLASTSEOROWPLASTSEQUENCE] D3 
WRITE, INE? 
END: 
SCRAM := ¢TIMEC1)=TIME4)/603 
PANCSCRAM»LINC OJ *ERRORCOUNTs INFOLLASTSEQROWsLASTSEQUENCE*1}) 


, 
WRITELINES 
PENCLINCOIJ,PRTIMAXeTPRCL+3IDIV Ae Ts =CORADR+T>, 
C(CT+29) DTV 304+DISKANR)x30)3 
WRITELINES 
LOCKCLINE »RFLEASF)3 END3 
80 
TF ERRORCOUNT # O THEN 1©0/0 FLSE 
BEGIN... 
ARRAY SAVINFOE0!?31,0'255], 


ose oy AS : INFOrO2?200+0% 25513 & FOR LARGE MCP"S, 
INTEGER SAVNDX »NONSAVNDX NS 


09252000 T 0073:0058:0 
09253000 T 00733006031 
09253050 T 0073:0061:3 
09253100 T 0073:006430. 
09253500 T 0073:!006733 
09254000 T 007330069383 
09255000 T 0073:0072:0 
09975000 T 00733007434 
09281000 T 007310075!2 
09281500 T 0073!0076!)} 
09982000 T 0073:007834 
09982500 T 0073%008133 
092982600 T 0073:0084%1 
09362000 T 00733008834 
09363000 T 0073!0089%2 
09364000 T 0073%0089!3 
START OF SEGMENT #44 84 kee He 
09365000 T 0080:000030 
09366000 T 0080:0001%2 
09367000 T 0080:0002?0 
09368000 T 0080:000630 
09369000 T 0080:000933. 
09370000 T 0080:0012:0 
09371000 T 0080:%0012!0 
09372000 T 0080:0042:0 
09373000 T 00800043430 
09374000 T 0080:0016:0 
09375000 T 0080:0018:0 
09376000 T 0080:!0020:0 
09377000 T 0080002834 
09378000 T 0080002932 
09379000 T 0080:0029%92 
09380000 T 0080:0031%2 
09381000 T 0080:0035:3 
09382000 T 00803003630 
09383000 T 0080003732 
09384000 T 0080:0037%2 
09384050 T 0080:0038t,4 
09384100 T 008080039! 
09384500 T 0080:0041:3 
09384600 T 0080:0052:0 
09385000 T 0080!0052:0 
09386000 T 0080?#0054:0 
09386500 T 0080:0057%2 
09387000 T 0080:0057!3 
09388000 T 0080!0067?3 
09389000 T 00803007133 
09389500 T 00803007430 
09390000 T 0080!0084:1 
1S B7 LONGs NEXT SEG 73 
09391000 T 00738009230 
09392000 T 00732009424 
09392300 T 0073:009532 
START OF SEGMENT *% #4 #k ex x 
09392500 T 0081:0003:2 
09393000 T 0081:0005:3 
09393010 T 00814:000533 


INTFGER QeJsKeMt 


80 


81 


cy Ge 


5 
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ee as Oo me a Oe ae 


C) 
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(© a: ee ee © ee a © ee 


a 


BOOLEAN TSSTOG$ REAL T3 
REA. PROCEDURE PUSHERCGRINCH»sGOT*+XMAS)$ VALUE XMAS$ REAL XMAS3 
ARRAY GOTLOJ3 ARRAY GRINCH £02073 
RFGIN 
REAL, WHOs WHATS 


DEFINE LINKR = [€32%8)#3 


IF WHOs=XMAS,LINKC $ 225 THEN 
BEGIN 
MOVEC30+GRINCHEXMAS«aLINKR*# WHOI*GOT(OI)} 
PUSHERt=XMAS + 30; 
END 

FLSE RBFGIN 
MOVECWHAT?® =256"WHOeGRINCHLEXMAS LINKRe WHO] +GOTL0I); 
XMAS$=sXMAS + WHAT} 
MOVECWHO=30"WHATs GRINCHEXMAS.LINKR»O]s GOTEWHAT))3 
PUSHFRISXMAS + WHO 
ENDS 

FND PUSHER; 


PROCEDURE PUSHFFECGRINCHeN»B,Y)# VALUE NeBe Ys REAL Ne Be ¥3 
ARRAY GRINCHLO,0]3 
BEGIN 
REAL TpdeXs 


DFFINE LINKR = (3228 #3 

Jt=¥3 

TisB + N3 

WHILF Bo < 7 NO 
BEGIN 
IF YisB,LINKC $ 275 THEN 
BEGIN 
MOVEC30eCODECJ) ,GRINCHEB,LINKRe YJ) 
Jsad 4 303 
B3=B + 30} 
END 

FLSE BEGIN 
MOVE CX? =256"yY,CODE CJ) +,GRINCHIB,LINKRsY])3 
Bt=Bo + Xs 

tad + X3 

MOVE CYS =30"X,CODE CU ee GRINCHIB,LINKRs01)3 
B:=B + Y3 
JisJ ¢ Y¥3 
END; 

END? 

END PUSHEES 


STREAM PROCEDURE FIXYHDRCFeN)} VALUE N35 

BEGIN SI«Fs SireSt=24) DreLOc Fi DSeNDS3 
SpeFs 14¢Spo*Sp+8)F HyeLOC Fs DSeWDS3 
NleFs DleD1+38% Sle LOC N$ 
SteST4+73 NSeCHRE 

END FIXHDR$ 

LABEL EOF} 
IF NoT INTOG THEN 

BEGIN 


09393020 
09393050 
09393060 
09393070 
09393080 


START OF SEGMENT 


82 1S 


09393090 
09393100 
09393110 
09393120 
09393130 
09393140 
09393150 
09393160 
09393170 
09393180 
09393190 
09393200 
09393220 
09393230 


20 LONG 


09393240 
09393250 
09393260 
09393270 


START OF SEGMENT 


83 1S 


09393280 
09393290 
09393300 
09393310 
09393370 
09393330 
09393340 
09393350 
09393360 
09393370 
09393380 
09393390 
09393400 
09393410 
09393420 
09393430 
09393440 
09393450 
09393460 
09393470 
09393480 


35 LONG 


09393700 
09393710 
09393720 
09393730 
09393740 
09393750 
09394000 
09394100 
09394200 


AAA AAA AHH HHA HHA HAA AAA HAH TA A? HHA AH Hk 


ere. tes 


0081!000523 
0084!000533 
00842000533 
0081'000533 
008120005! 3 


4K OR ORK KOK 82 


0082:0000:0 
00822000030 
0082!0000!0 
0082000133 
00823000230 
0082:0005%2 
0082:0006!4 
00825000631 
0082:0007%2 
00823001132 
0082:0012:50 
00825004630 
00823004733 
00823001733 


NEXT SEG 81 


0081:0005%3 
0081420005! 3 
008613000533 
0081000533 


00833000080 
0083!0000%0 
008340000'4 
008330002!0 
00832000332 
00833000332 
0083!0005%2 
0083:0005%3 
0083:0011:2 
00833001210 
0083:0013!3 
00833001383 
0083%001430 
0083#0020%1 
00831002133 
00832002382 
0083:0029%3 
00833003081 
00833003230 
00833003230 
0083!003231 


NEXT SEG 81 


00814000533 
00812000533 
00818000782 
00813000884 
00813000932 
0081:0009!3 
0081!0010:0 
0081:0010t0 
00813001132 


83 


C) Cy CO) C) 


() 


C) 


C) 


O 


(} 


C) 


LeCL+3)p1V 43 COMMENT L*NUM, OF WORDS IN OUTER BLOCK; 
FILL SAVINFOLOs*] WITH 
0¢T7700000000000015, 


06T0253010477527705, 
0CT00510000N0000000, 
0cT0441070001000062; 


Q¢« =13 
PUSHEF CSAVINFOsL»495)3 
SAVNDX?sh3 


END; 
REWIND¢CCODTSK)? 
nO BEGIN 1F REED=0 THEN GO TO EOFS 
NeFETCHOCMKABSCCODE(O)) )=13 
IF BOOLEANCFETCHCMKABS(CODF(1)))) THEN 
BEGIN 


PUSHEECSAVINFOsNe SAVND X01 )3 
SAVNDX?=SAVNDX +NG3 
END ELSE BEGIN 
IF DECKTOG THEN 
STACKHEADL Q¢Q41] © 1024XNONSAVNDX4NE 
PUSHEECENFO#+NsNONSAVNDX01)$ 
NONSAVNDX#=C¢CNONSAVNDX + N + 29)DIV 30)x303 
END3 
END UNTIL FALSF3 
Ne ¢SAVNDX+29) DIV 30% COMMENT NUMBER OF DISK SEGMENTS 
OCCUPIED BY SAVE PROCEDURES AND ARRAYS? 
TF INTOG AND NOT DECKTOG THEN 
BEGIN % INTRINSIC FUNCTION OPTION 
FOR J#=USEROPINX STEP 2 UNTIL OPARSIZE DO % 1S TIMESHARING SET 
TF OPTYONSrJ] = "@TIMES" THEN 
BEGIN TSSTOG#=BOOLEANCOPTIONSEJU+11)3 JtSOPARSIZE ENDS 
t « PRTIBASE + 1? yg « OQ} 
DO IF GT1 « PRTC11 #0 THEN 
BEGIN 
Joe Jat} 
SAVINFOCU,LINKRe J LINKC] «© 
O&GT17 88840) 
&8G71033%1834573 
END UNTIL yee] +41 2 PRTIMAXS 
SAVINFOLO,0) « J3 % # OF INTRINSTCS 
SAVNDX «© MAXINTRINSIC3 
END ELSE BEGIN 


pOF: 


I«PRTBASES DO IF GT1*PRTCI1#0 THEN 

BEGIN IF GT1,f1:5)]#LDFS THEN 

BEGIN TF CGT1¢GT18¢GT1,033%1514L9033'33%151),(682]43 THEN 

GT1*GTlacaTierIBs15)4N) (1823381573 

FND3 
MDESCCGT1>+SAVINFOCTLINKRsT,LINKC])3 

END ELSE SAVINFOLY+LINKRoTeLINKCJ]#=0 UNTIL [t=1+42PRTIMAXS 
MDESCCOR1 (DF A7E17eSAVINFOCOsPRIBASE@4] )3 
SAVNDX « 30 » N$ 

END? 

1 «¢ OF Je "43 


IF NOT DFCKTOG THEN 


84 


4 


1 


09395000 T 00812001133 
09395100 T 0081!001332 
09395200 T 00812001450 
START OF SEGMENT 2k KK HR y 8 
09395300 T 0084:00;4532 
09395400 T 00813001582 
09395500 T 0083:0015%2 
Is 4 LONG» NEXT SEG 8 
09395700 T 0081:001532 
09396000 T 008110046!0 
09397000 T 0081:0018631 
09397100 T 00813001982 
09398000 T 0081:00193:2 
09399000 T 0061:00201%2 
09400000 T 008148002231 
09401000 T 008;:!0028%1 
09402000 T 0081!0033%3 
09402100 T 0081,!0034!0 
09403000 T 0081420036?0. 
09404000 T 00812003723 
09405000 T 00833003830 
09405500 T 0081:0038%4 
09406000 T 0081:0042%4 
09407000 T 0081:004424 
09408000 T 0081:004733 
09412000 T 0081%004733 
09413000 T 0081:0048:0 
0941,4000 T 00818005024 
09414010 T 008142005034 
09414020 T 0081%0052%4 
09444022 T 0081%0053!2 
094440724 T 008;%0055#2 
09434026 T 0083;!005630 
09414030 T 0081:0064:2 
09444040 T 00833006332 
09444050 T 0081:%0065!2 
09444060 T 00813006523 
09444070 T 00843006624 
09414080 T 0081,:0069%2 
09474090 T 008120070%0 
09414100 T 0081:007132 
09414110 T 0081:007333 
09444120 T 0084:!007533 
094144130 T 0081:0076!0 
09415000 T 008130078:0 
09415500 T 0081:0081:!2 
09416000 T 0081:0082:1 
09417000 T 0081:008631 
09417500 T 0081:0089%2 
09418000 T 0061:0089:2 
09419000 T 0081#0092:0 
09419100 T 0081:0097:2 
09420000 T 00812010133 
09420010 T 008142010281 
094290020 T 0081%01402%4 
094270100 T 00813010424 
09421000 T 008144010434 


C) 


Mm 1 


) 


yee 


OQ 


Moore Pusinczs Fu.ms, Inc sv 


y 


“ 


© 36. 26 ; 6.-S 


Or SO 3Q. 2@ 


O 


Ye 


{ 


T?=PUSHERCSAVINFO*SELBAT#1)3 
JisJ + 43 
WRITECD SK. 30% ELBATC¥*I)3 
END UNTIL I 2 SAVNDX3 
1?=03 
WHILE I < NONSAVNDX DO 
BEGIN 
Te=PUSHERCINFOPELBAT® I)3 
JtsJ + 43 
WRITECDISK,30sELBATEC¥*I)3 
END3 
NeTF INTOG THEN TF TSSTOG THEN 
TSSINTYPE ELSE DCINTYPE ELSE MCPTYPES3 
FIXHDR¢DISKeN)? 
LOCK¢(DISKs*)3 
END ELSE 
BEGIN ELBAT£L01«03 [+163 
DO BEGIN MOVECB,SAVINFOFI .LINKRe IeLINKCIsELBATC1I93 
ELBATr9]+BADC T+ 96.81 C11 A7 FLIRT +9696 232358473 
WRITECDECK* 10-+ELBATL*I1)3 
END UNTIL Le1+82SAVNDX3 
FILL ELBATC#] WrTy O» 


0€17500000000000010, 
0¢T0004535530611765, 
0677006000404210435, 
0¢T7700000000000015, 
0¢T0953010477527705, 
0¢70051000004410046, 
0¢6T0441070001000062>, 
0¢T0040413100000000, 
0¢6T0001000000000103;3 


WRITECNECK® 10° ELBATL¥*))3 
FLBATCO) «O&8REALCDECKT0G) (121931713 
FOR y « O STFP 1 UNTIL @ DO 
BEGIN K ¢ STACKHEADEI1,£23%15]3 
M ¢ STACKHEAD(C1),(3821073 
FOR J « O STEP 8 UNTIL M DO BEGIN 
MOVE C8sINFOLCU+KIALINKRe CU+K),LINKC]» 
ELBAT £1193 
ELBATE9] « B2D0¢J)8"340"61331397)3 
WRITECDECKs10e¢ELBAT£C*)]) END 
ENDS 
END END END PROGRAM} 


COMMENT THIS SFCTIGN CONTAINS GENERATORS USED BY THE BLOCK ROUTINE; 


-PROCEDYRF DEFINEGFNCMACRO,J)3 VALUF MACRO» Ji BOOLEAN MACRO? REAL 3 


BEGIN 
OWN INTEGER CHARCOUNTs REMCOUNT} 


COMMENT CHARCOUNT CONTAINS NUMBER OFCHARACTORS OF THE DEFINE THAT WE 


HAVE PUT YNTO INFO. REMCOUNT CONTAINS NUMBER OF CHARACT= 


09421500 
09422000 
09423000 
09424000 
09425000 
09425900 


09496000. 


09427000 
09427100 
09497200 
09427500 
09428000 
09429000 
09430000 
09430050 
09430060 
09430075 
09430100 
09431000 
09432000 
09433000 
09434000 
09435000 
09436000 
09437000 


START OF SEGMENT 


09438000 
09439000 
09440000 
09441000 
09442000 
09443000 
09444000 
09445000 
09446000 


10 LONG 


09447000 
09447010 
09447020 
09447030 
09447040 
09447050 
09447060 
09447070 
09447080 
09447090 
09447100 
09448000 


AN AA aH 


AAA AA HAA AAA ABA eR HHH A A i 4 


186 LONG» 
101 LONGs 


10000000 
10228000 
19229000 
10230000 


START OF SEGMENT 


10231000 
10232000 


T 
T 
T 
T 


2k OR AR aK ok ok 


T 
T 


00812010533 
00813010630 
0084%01406%0 
0084:0106:0 
0081°0409%2 
0081'0440!0 
008142011434 
0081'0415%3 
00812041624 
008120118!0 
008130118:0 
00813042132 
00817012234. 
0081:20127631 
0081:0{2732 
0081:0128%4 
00842013153 
0084:0432%4 
0081420434%4 
00819013484 
0081:0137%2 
00812044024 
00813014532 
0081430144923 
0081:0145123 
2K ie ok 3K ae 85 
00871 °04153%3 
00843015333 
008141015383 
0081015333 
0081410153323 
00812015333 
00812015333 
00814015333 
0081:015333 
NEXT SEG 81 
00812015373... 
0084:015733 
00812016084 
0081:0462:0 
008142016333 
0084%046532 
008120166:0 
00812016983 
008120170%4 
00813017382 
00812047933 
00812018220 


NEXT SEG (3. 


NEXT SEG 
00032050523 
0003:050533 
0003%0505!3 
00031050533 

86 

0086#0000%0 

0086:0000:0 


oo 


GC Oe 76." 


0 0 0 


a 


Oe! oe «© 


ORS REMAINING IN THIS ROW OF INFOS 
PROCEDURE PUTOGETHERCCHAR)$ REAL CHAR$ 
BEGIN 


. STREAM PROCEDURE PACKINFOCINFO,ISKIPs»COUNTsASKIPs ACCUM) 5 


VALUE ISKIPseCOUNT,ASKIP3 
BEGIN DY] « INFO’ DI ¢« DI+ISKy]P3 
ST « ACCUMSSI «© ST+ASKIPS SI « SI+33 
DS « COUNT CHR END PACKINFOS 
INTEGER COUNTsSKIPCOUNT?3 
IF CCOUNT * CHAR.£1286]) + CHARCOUNT > 2047 
THEN BEGIN FLAG(142)3 TBie TRUE END 
FLSE BEGIN 
TF COUNT > REMCOUNT 
THEN BEGIN 
SKFPCOUNT « COUNT=¢COUNT+«REMCOUNT)3 
REMCOUNT « 29047 END 
ELSE REMCOUNT « REMCOUNT#=COUNT3 
GT1{ « CHARCOUNT DIV 8 + NEXTINFOS 


PACKINFOCINFOCGT1«LINKReGT1.LINKC ]»CHARCOUNT,[45:3]> 


COUNT* Os CHAR) 
IF SKIPCOUNT # O THEN 


PACKINFOCINFOCNEXTINFO.LINKR+1*20]20sSKIPCOUNT> 


COUNT» GHAR) 3 
CHARCOUNT «+ CHARCOUNT+SKIPCOUNT+COUNT END. 
END PUTOGETHER; 


STREAM PROCEDURE SCANCD*®S,QeNsJ)% VALUE JeNeQ3 
BEGIN DleNsDLeD +113 S57eS3SypeSrt+33 
IF N SC#0C THEN 
IF SC>rot THEN 
BEGIN DI«LOC J DyeD1+73 
IF SCSDC THEN 
BEGIN JeSIsDTeJsSleLOC Q3S7«ST+63DSeCHR3 
DleSsHleDI +253 D0S*CHR? 
FND END €NDS 
INTEGER LASTRESULT3 
REAL K»NsELCLASS3 
DEFINE TSNXTELBTT3 
LABEL FINAL»PACKIN 
LABEL BACK» SKSC,EXIT3 
TR1« FALSE} 
CHARCOUNT+CNEXTINFO*LASTINFEO) x83 
DEFINECTR © 413 LASTRESULT «©« 23 
REMCOUNT « €256 = NEXTINFO MOD 256) x 8} 
NEXTINFO*LASTINEG OS 
J#0 THEN Ne TAKECLASTINEO+1),(1236)3 
«03 
STOPNFFINE*TRUE3 
FLCOLASS#¢TABLECNXTELBT)3 
NXTELRTeNXTELBT=13 
IF MACRO THEN 
BEGIN IF ELCLASS=COMMA THEN 
IF K=O THEN 
BEGIN PUTOGETHER¢"1#40000")3 GO TO EXIT END 
ELSE GO PACKIN? 
TF ELCLASSsLEFTPAREN OR FLCLASS=LFTBRKET THEN 


BACK? 


SKSC3 


FINAL? 


10233000 
10234000 
10235000 
10236000 


START OF SEGMENT 


87 1S 


10237000 
19238000 
10239000 
10240000 
19741000 
10242000 
10243000 
10244000 
10245000 
10246000 
19247000 
19248000 
19249000 
19250000 
10251000 
19252000 
19253000 
10254000 
10255000 
10256000 
19257000 


32 LONG 


19257100 
10257200 
19257300 
19257400 
19257500 
10257600 
10257700 
10257800 
10257900 
10258000 
10258100 
10258200 
19258300 
10259000 
10260000 
10261000 
10262000 
102763000 
10263100 
10263110 
19263200 
10263300 
10263400 
10263500 
19263600 
10263700 
10263800 
102763900 
10264000 
10264100 


AHAB HA ADAH HAHAH HAAR AAA TAA HAA HA te HHA tA HH A AA A HS 


00862000020 
008630000%0 
0086:0000:0 
0086:0000:0 


OR KKK Ok 87 


008740000:0 
0087200000 
0087#0000?4 
0087!0001%3 


008720002%1 ~ -- 


00871000231 
008730004%14 
0087:0007%2 
00873000982 
0087:0009%2 
00873001030 
0087:0042:0 
008730042%4 
008730016!0 
0087:0018%0 
008730021432 
0087 +0022!0 
00872002382 
00871002631 
00872002732 
0087%0029%0 


NEXT SEG 86 


00863000030 
008640000:0 
0086:0001:2 
00863000133 
00863000231 
00863000333 
0086:0004:0 
00863000620 
00863000634 
00862000732 
00861000739 
0086:0007:2 
0086!0007.892 
0086:0007%2 
0086:0007%2 
0086:0007!3 
0086:0009%3 
0086%0041:2 
.008620043%2 
00862001430 
008630014733 
008600180 
00861004933 
0086:000112 
0086£002230 
0086:0022%14 
0086:009333 
0086:0025%9 
0086:0029%02 
0086:0029%0 


yen, 


O 


setae ata. ~Y BEGIN KeK+13 


GO TO PACKIN END3 
IF ELCLASS=SRTPAREN OR ELCLASSSRIBRKFT THEN 
TF KekKwy<O THEN GO FINAL ELSE GO PACKIN 
Sa tte Teale : ; IF ELCLASS=SEMICOLON THEN 
BEGIN Fl.AGC142)3 GO TO FINAL END ELSE GO PACKIN 
END} 
Bache oes IF J#0 THEN 
TF ACCUME1),£12%:6]°1=N THEN 
SCANCINFOECLASTINFO. LINKR »LASTINFO, 
ACCUME I JoNt+770eNoJ)3 


LINKC J» 


PACKIN: 
IF RESULT = 4 
ise Ee THEN BEGIN 
COMMENT INSERT " MARKS = 2430706432 1S DECIMAL FOR 100003 
PUTOGETHER(C2130706432)3 
ate &, PUTOGETHFRCACCUME1])3 
PUTOGETHFR( 2130706432) END 
FLSE BEGIN 
IF BOOLEANCRESULT) AND BOOLEANCLASTRE SULT) 
THEN PUTOGETHERC™1 0000%)3 COMMENT INSERT BLANK3 
PUTOGFTHFRCACCUM(C1]) END? 
1F TBI THEN GO TO EXITS 
LASTRESULT « RESULT: 
1F MACRO THEN GO BACK3 
TF ELCLASS=NECLARATORS AND ELBATC11,A0DRESS = DEFINEV 
THEN BEGIN DEFTNECTR « DEFINECTR+13 GO BACK END$ 
IF ELCLASS # CROSSHATCH THEN GO BACK; 
IF DEFINECTR # 1 
THEN BEGIN STOPDEFINE « TRUES 
IF ELCLASS«TABLECI)4COMMA THEN 
DEFINECTR+DEFINECTR=13 GO SKSC END3 
DEFINECTRe O3 
NEXTINFO «CCHARCOUNT+7) DIV 84+NEXTINFOS 
DEF INEGENS 


EXITS: 
Bh, thes he 1. END 
PROCEDURE DBLSTMT$ 
RFEGIN 
RFAL S,T3 


LABEL LielLOslL3,EXtTs 


$<03 
IF STEPIALEFTPAREN THEN ERR(281) 
ELSE 
Lit BEGIN 
IF STEPT=COMMA THEN 
SS ous 49 5 of BEGIN 
DPTOGeTRUES 


IF STEPYTSADOP THEN STFPITS 
EMI TNUMCNLO)S$ 
EMITNUMCIF ELBATLI“L27. ADDRESS =SUB THEN #NHI FLSE NHID3 
DPTOGeFALSES 
2 eee STEPIT} 
GO TO L23 
END3 
IF TARLECI+1)=COMMA THEN 
BEGIN 


IF ELCLASS=sANOP OR ELCLASS=MULOP THEN 


86 IS 


START OF SEGMENT 


19264200 T 0086%003034 
10264300 T 0086!00333%2 
19264400 T 00862003434 
10264410 T 00863003830 
10264420 T 00863003834 
19264500 T 0086:0040%,4 
19264600 T 0086:0040:4 
10264700 T 0086!:0041%2 
10264800 T 0086:0043:!3 
10264900 T 0086:004634 
10264910 T 0086:0048314 
10265000 T 0086:004932 
10266000 T 0086:0049%2 
19267000 T 0086:0050:0 
10268000 T 00860050!0 
10269000 T 0086#0051:2 
10270000 T 0086#0052t0 
19271000 T 0086:005234 
10272000 T 0086:0055i2 
19773000 T 0086:0055i2 
10274000 T 0086:005732 
19275000 T 0086:0058:0 
19776000 T 0086:005932 
10276500 T 00863005933 
19277000 T 0086!00603;4 
192978000 T 0086:006234 
19279000 T 0086!0067%2 
19220000 T 0086!0068:0 
19281000 T 0086:0068:1 
10282000 T 0086:0070:0 
10283000 T 0086:0072:0 
19284000 T 0086:007430 
10285000 T 0086:0075:3 
19286000 T 0086!0078:0 
81 LONG» NEXT SEG 3 
12002000 T 0003:05053:3 
12003000 T 0003050533 
12004000 T 0003%050533 
DKK ake aK 6 2 OK ae ok 88 
12005000 T 0088:0000!0 
12006000 T 0088:0000:0 
12007000 T 0088000084 
12008000 T 0088:000231 
12009000 T 0088:0003?2 
12010000 T 0088:0004:0 
12011000 T 0088:0005:2 
12012000 T 0088:000533 
12013000 T 0088:0006:0 
12014000 T 0088:0008:0 
12015000 T 0088:0009%2 
12016000 T 0088:0043!:2 
12017000 T 0088:0044!0 
12038000 T 0088:001431 
12019000 T 0088:0015%2 
12020000 T 0088:00;15%2 
12021000 T 0088!:001674 
12022000 T 0088!0017%2 


©) 


6 ee © ee ©. 


0 


Ge JOS a 


EXTT#END 
FND 


BEGIN 
EMITOCELBATFI].ADDRESS+1)3 
IF SeS"1S0 THEN FLAG(282)3 STEPITS 
GO TO L33 
END3 
IF ELCLASS=ASSIGNOP THEN 
BEGIN 
IF S#4 THEN FLAG(283)3 S03 STEPIT3 
D0 
BEGIN 
TF ELCLASS #COMMA THEN BEGIN ERR(284)3G0 EXIT END? 


STEPIT 
IF ELCLASSS;NTID AND ELCLASS2REALID -THEN 
BEGIN EMITNCELBATEI1],ADDRESS)$ STEPIT FND 
ELSE VARIABLECFL)3 
EMITOCSTD) END UNTIL SeS+qs9 3 
IF ELCLASS#RTPAREN THEN ERR( 285) ELSE STEPIT3 
GO TO EXIT? 
END} 
IF ELCLASSSINTID AND ELCLASS2BOOIN THEN 
BEGIN 
CHECKFRET*ELBATELIJ)3 
STEPIT#STEPIT3 
AEXP3 
EMITVCT.ADDRESS)3 
GO TO Las 
END? 
END H 
AEXP3 
IF ELCLASS#COMMA THEN BEGIN ERR(284)3G0 EXIT 
END} 
STEPIT$S AEXP# EMITOCXCH)3 
$¢S413 
IF ELCLASS#COMMA THEN BEGIN ERR(284)3G0 TO EXIT END? 
GO TO Li 


NBLSTMT3 


REAL PROCFOURE FIXDEFINEINFOcT)# VALUE TS REAL T3 
BEGIN REAL KeS+PerJdeELs 


STREAM PROCEDURE SET(SsDaks£)s VALUE KeE3 
BEGIN SleSsSleSlti1spleDsID eDI+3sD0S«K CHR; 


END? 


ST*LOC Es SteSt+63 DS«2 CHR} 


MACROTD«TRUES 

PeCFIXDEFINEINFO*T) «ADDRESS 

KeCOUNTS 

S¢SCRAM3 

STREAMTOGeTRUE & STREAMTOGL 123245) 3 

STOPpEFINE*TRUES 

FLeTABLECNXTELBT)$ 

NXTELBTeNXTELBT #13 

IF EL#LEFTPAREN AND EL#LFTBRKET THEN 
FLAGC141) 

FLSE DO BEGIN JeJ413 
SETCINFOLTLINKRsT,LUNKC Is ACCUME1J eK s64xJ41293 


88 IS 


12023000 
12024000 
12025000 
12026000 
12027000 
12028000 
12029000 
12030000 
12031000 
12032000 
12033000 
12034000 
12035000 
12036000 
12037000 
12038000 
12039000 
12040000 
12041000 
12042000 
12043000 
12044000 
12045000 
12046000 
12047000 
12048000 
12049000 
12050000 
120514000 
12052000 
12953000 
12054000 
12055000 
12056000. 
12057000 
12058000 
12059000 

65 LONG 
12101000 
12102000 


START OF SEGMENT 


12103000 
12104000 
12105000 
12106000 
12107000 
12108000 
12109000 
12110000 
12110100 
12111000 
12112000 
12113000 
12114000 
12115000 
12116000 
12117000 


AAH AA HHH 


AR AAA AHAB AHHH AATF ABH HSA BAHAR HAHAHAHAHA A HH 


0088:004932 
00883001933 
00883002133 
0088:0095!2 
00881002533 
00883002533 
00883002610 
0088002614 
00883003080 


0088:0030:0. 


0088:0030%0 
0088:0032%1 
0088:0033%2 
00882003441 
0088:0037i9a 
0088!0038%4 
00883004133 
00882004484 
0088:004532 
0088:0045%2 
0088:004634 
00882004732 
0088:004834 
00881004933 


0088:0050:0. 


0088!0051:3 
0088:005250 
.0088%0052:0 
0088!005230 
008870052%1 
00883005582 
00883005532 
0088:0056%4 
0088:0058:0 
00883006133 
0088:0062:0 
00882006230 
NEXT SEG 

0003%0505!3 
00031050523 


OO Ok 8 


0089!0000:0 
0089%0000!0 
008930001 33 
0089?000230 
0089300023 4 
00893000333 
00891000533 
00892000630 
0089730007!2 
0089:000834 
00893000933 
00893001024 
0089200414230 
0089:00433%3 
00893003434 
00893001732 


3 


9 


© 


ACCUMC1J,C12:6)]«K+23 
ACCUM[01<03 
ACCUM[0],CLASS*DFFINEDIN3 
COUNT«K4+23 
SCRAM*ACCUME1] MOD 1253 
Be 
DEFINEGENCTRUE?0)3 
END UNTIL ELeELBATCNXTELBT],.CLASS#COMMA3 
IF EL#RTPAREN AND EL#RTBRKET OR J#P THEN FLAG(141)3 
se ies BE MACROITDeFALSES 
STREAMTOG*«STREAMTOGe(1245] 3 
FNDS 


PROCEDURE SCATTERELBAT} 
BEGIN 
: REAL T} 


To «# ELBAT(TI3 

KLASSF « T.CLASS? 

FORMALF « BOOLEANCT.»FORMAL)3 
VONF « BOOLEANCT,VO)3 

LEVELF « TeLVL?3 

ADDRSF «© T.ADDRESS:; 

INCRE « T,INCRS 


ee ; LYNKe « T, LINKS 


FND SCATTFRELBAT; 


~ PROCEDURE CHKSOB$ 
TF GTALE Jed=11#0 THEN FLAGC23)3 
DEF TNE 
ADDC=532480#, 
SUBC=1581056#>» 
FMITSTORE=EMITPAIR#; 
.. PROCEDURE PURGFCSTOPPER)3 
VALUF STOPPER? 
REAL STOPPER} 
BEGIN 
INTEGER POINTER} 


LABEL .RECOV3 DEFINE ELCLASS = KLASSF#3 
REAL JeNoOCRsTL, ADDS 
POINTER*LASTINFO3 
WHILE POINTER 2 STOPPER 
DO 
BFGIN 
IF ELCLASS*©(GT1eTAKECPOINTER) ) .CLASS=NONLITNO 
THEN REGIN 
NCTLeNCII“13 
EMITNUMCTAKECPOINTER+1))3 
EMLTSTORECMAXSTACKsSID)3$ 
MAXSTACK*# (CGeMAXSTACKI4+13 
JeLs LeGTtlLyNK3 
po 
BEGIN 
GT4«GET(LI3 
EMTTVeG) 
END 


89 IS 


12118000 
12119000 
12120000 
12121000 
12122000 
12123000 
12124000 
12125000 
12126000 
12127000 
12127100 
12128000 


46 LONG 


13197000 
13198000 
134199000 


START OF SFGMENT 


90 1S 


13200000 
13201000 
13202000 
13203000 
13204000 
13205000 
13206000 
13207000 
13208000 


12 LONG 


13709000 
13210000 
13211000 
13212000 
13213000 
13214000 
13715000 
13716000 
13217000 
13248000 
13219000 


START OF SEGMENT 


13220000 
13221000 
13222000 
13223000 
13224000 
13225000 
13226000 
13227000 
13728000 
13229000 
13230000 
13231000 
13232000 
13233000 
13234000 
13235000 
13236000 
13237000 


Sie es Mier Mi: Mites ee Me Me ee Me ee ee ee ere ee ee ee ee 


AA AAA HHH HAH HAHAH HAH RHA A HS 


0089:0022:0 
008930005%2 
00893002630 


00894002834 - 


0089%0030:0 
00692003183 
0089003280 
00893003332 
0089+0035:83 
00894003933 
0089:0040:0 
0089:0042:0 
NEXT SEG 

0003:05053 3 
00033050533 
0003!0505%3 


eT EL ee S| 9 


009030000:0 


00903000182 - 


009030002:0 
0090!000333 
0090:0004%1 
0090:0006:0 
0090:0007%2 
00902000831 
0090:0009%3 
NEXT SEG 

00033050533 
0003:0505:3 
0003+050983 
00032050923 
0003050933 
00032050933 


00032050923 . 


00033050933 
00033050933 
000323050933 
0003:050933 


Poe er Pe es 9 


00942000030 
00917000030 
009120000:0 
00914:000084 
00914:000142 
0091:000230 
0091:0002:0 
0094:000434 
009430005:3 
00941000634 
0091:0008:4 
0091:000933 
009140041 4%2 
0094'0043%2 
009143001430 
0091430044:0 
009420015%2 
009143004523 


3 


0 


3 


4 


O 


ae 


ares 


Se Waeee 


noss Form 


C) 


(4) CO) 


C) 


Si Ad UNTIL CL*GT4)540953 13238000 T 0091#0016:0 
LeJ3 13239000 T 00913001733 

POINTER«ePOINTER@GT1,INCR 13240000 T 0091:001831 

FND 13241000 T 0094:0014831 

ELSE 13242000 T 0094:0020:0 

' BEGIN 13243000 T 00914!002030 
IF NOT BOOLEANCGT1,.FORMAL) 13244000 T 00918002210 

= THEN BEGIN 13245000 T 0091:002210 
Kl IF ELCLASS = LABFLID 13246000 T 00943002333 
THEN BEGIN 13247000 T 0091002333 

ADD « GT1,ADNRESS? 13248000 T 0091:002434 

2 IF NOT BOOLEANCOCReTAKECGITCPOINTER))),C131) 13249000 T 0091:0026:30 
THEN TF OCR,£36%12) #4 0 OR ADDN # O 13250000 T 0094:%0028:0 

se THEN BFGIN GT1 « 1603 GO TO RECOV ENDS 13251000 T 0094!0030!1 
UO 1F ADD # 0 THEN 13252000 T 00914:003332 
PROGNESCBLDRCADDs TRUE, OCR,[36210]»LDES) END 13252500 T 0091:0033:3 

ELSE JF FALSE 13253000 T 0094%003630 

O THEN BEGIN 13254000 T 00943003782 
IF TAKECPOINTER+1) < 0 13255000 T 00914003733 

a THEN BEGIN GT1 « 162% GO TO RECOV END3 137256000 T 0094:00383%1 
2O) OCR «(J © TAKECGITCPOINTER))),€24212]3 13257000 T 009143004132 
: N « GETC CJed.036812)04+4)3 TL « L$ 13258000 T 00913004333 
ve IF ADD « GT1,ADDRESS # 0 13259000 T 0091:0047%2 
) THEN BEGIN 13260000 T 00913004834 
13261000 T 0094%004933 

os IF OcR # 0 13262000 T 0094!004933 
Co THEN BEGIN LeOCR™23 CALLSWITCHCPOINTER)$ EMITOCBFW)SEND3 13263000 T 00913004933 
. LeJ¢¢22 FMYTLC15)% FMITOCRTS)? 13264000 T 0091:005333 
FOR g «© 4 STEP 4 UNTIL N 13265000 T 0094:0056!0 

oS nO BEGIN 13266000 T 0091:0056:0 
EMITLCGNATCGETCL)*X40964GET(LH1))93 13267000 T 00943005732 

EMITOCRTS) END END 13268000 T 00943006081 

FLSE BEGIN 13269000 T 00915006333 

Lo « J+133 13270000 T 00914006620 

ae FOR J « 4 STEP 4 UNTIL N 13271000 T 0091:0067:2 
pO BEGIN 13272000 T 0091006782 
waite GTL «© GETCL)x40964GET(LEL)3 13273000 T 009143006830 
GOGFNCGT1eBFW) ENDSENDS 13274000 T 00913:0071!2 
‘) Lo« TL END 13277000 T 00943007431 
Pete ELSE IF ELeLASS 2 PROCID AND ELCLASS ¢$ INTPROCID 13278000 T 00943007532 
THEN IF TAKECPOINTER+1) < 0 13279000 T 00943:0078:0 
O THEN BEGIN GT1 + 1643 13280000 T 0094!008084 
RECOV: MOVECOsTNFOrPOINTER,LINKRePOINTER«LINKC]sACCUM)$ 13281000 T 0094:0082!0 

Q « ACCUMC113 FLAGCGT1)$ ERRORTOG + TRUE END 13782000 T 0091:008630 
O ENDS 13283000 T 0091#0089%2 
XRFEFOUMPCPOTNTER)? % DUMP XREF INFO 13283500 Cc 00914:0089:2 

es GT2«TAKECPOINTER+1 93 13784000 T 009130091%2 
CO GT3«GT2,PURPTS 13285000 T 009143009234 
STACKHEADCCORGT2ALL2512%2367} MOD 125]*TAKECPOINTERD,LINK3 13286000 T 00943009420 

a POINTERePOINTER@GT3 13287000 T 00943009733 
oe END 13288000 T 009130098:0 
_ END 3 13289000 T 0094:009932 

: LAST INFO«POINTERS 13790000 T 00914009983 
© NEXTINFO«STOPPER 13291000 T 0094%0400:0 

ENDY 13292000 T 0094%0100:0 .. 
94 1S 105 LONGs NEXT SEG 3 
© PROCEDURE F3 


13293000 T 0003:%0509%3 


C) e O 


Cj 


[: “Gl to Uo: “Or. 


O 


COMMENT 


BEGIN 
REA 


THEN BE 


MOVE CWO 


END: 


PROCEDU 


COMMENT 


BEGIN 


F 1S THE PROCEDURE WHICH PLACES AN ENTRY IN INFO AND 

HOOKS IT INTO STACKHEAD. THE PREVIOUS STACKHEAD LINK 

1S SAVED IN THE LINK OF THE FELBAT WORD IN THE NEW ENTRY 

F PREVENTS AN ENTRY FROM OVERFLOWING A ROWsSTARTING AT THE 
REGINNING OF THE NEXT ROW IF NECESSARY 


1. WORDCOUNT» RINX3 


TF RINX#CNEXTINFO+WORDCOUNT«(COUNT+18)D IV 8 
NEXTINFO,LINKR 
GIN PUTC125&CRINXX256"°NEXTINFOIC 2734028) *NEXTINE ODS 
NEXTINFO*«256xRINX END} 
IF SPECTOG THEN 
JF NOT MACROID THEN 
UNHOOK3 


Y,LINKR # 


ACCUMLOJ,.INCReWORDCOUNTS 
1F NOT INLTNETOG OR MACROID THEN BEGIN 


we 


ACCUMPFO].LENK «STACKHEADESCRAMI] 3 STACKHEADESCRAMI¢NEXTINFOS 


END3 
ACCUMGF1],PURPT«NEXTINFO@LASTINFOS 
RDCOUNT» ACCUM» INFOCNEXTINFO.LINKReNEXTINFO,LINKCI)3 
IF XREF THEN & MAKE DECLARATION REFERENCE 
IF cACCUMrFO1,CLASS # DEFINEDTD OR NOT 


%110- 
%1108 


ROOLEANCACCUMS0}],FORMAL)) THEN % NOT DEFINE PARAMETER%110= 


BEGIN 
XREFINFOLNEXTINFO] %= 
IF SPECTOG THEN 
XREFINFOCELBATCIII 
ELSE 
CCXLUN t= XLUN + 1) & SGNO SEGNOF): 
IF SPECTOG THEN & YUST GO BACK AND FIX UP XREF ENTRY 
XMARK CDECLREF ) 
FLSE 


%110- 
%110« 
%110° 
%110" 
%110° 
%110- 
%110= 
2110° 
%110= 


XREFITCNEXTINFO*CARDNUMBER, IF PTOG AND NOT STREAMTOG#110= 


THEN NORMALREF ELSE DECLREF)3 
END 
FLSE % DEFINE PARAMFTFRS = DONT CROSS REF, 
XREFINFOCNEXTINFO] t= 
ELSE 
IF DEFINING. (121) THEN 
XREFINFOCNEXTINFO] 3 
LASTINFO+#eNEXTINFOS 
NEXTINFOeNEXTINFO+WORDCOUNT 


% WE ARE DOING XREFING 
03 


RE FNTRYCTYPF)3 
VALUE TYPES 
REAL TYPES 


ENTRY ASSUMES THAT + IS POINTING AT AN IDENTIFIER WHICH 

1S BFING DEC|ARED AND MAKES UP THE ELBAT ENTRY FOR IT 

ACCORD TO TYPF. wIF THE ENTRY [TS AN ARRAY AND NOT 

A SPECIFICATION THEN A DESCRIPTOR IS PLACED IN THE STACK 

FOR THE UPCOMING COMMUNICATE TO GET STORAGE FOR THE ARRAYCS) 


%110" 
%110- 
¥110= 
¥1{ 108 
%110= 
%1108 
%110" 


we 


13294000 
13295000 
13296000 
13297000 
13298000 
13299000 
13300000 
13301000 


START OF SEGMENT 


92 18 


13302000 
13303000 
13304000 
13305000 
13305100 
13305200 
13305300 
13306000 
13307000 
13307500 
13308000 
13308500 
13309000 
13310000 
13310050 
13310075 
13310080 
13319100 
13310200 
13310300 
13319350 
13310400 
13310450 
13310500 
13310525 
13310550 
13310575 
13310580 
13310600 
13330700 
13310750 
13310800 
13310900 
13319950 
13311000 
13312000 
13313000 

57 LONG 
13314000 
13335000 
13336000 
13317000 
13318000 
13319000 
13320000 
13321000 
13322000 
13323000 


AA AA AHAAM aH! HHA NINNDNONDODND DD MOND M OND NNN A AnH AAMT AA AAT HAHA AAA AAAS 


0003:050933 
00032050923 
00032050923 


00032050923 - 


00031050933 
00032050933 
0003%0509%3 
00033050933 
a aK a 9 
00922000020 
00923000332 
00923000332 
0092:000733 
009210009%2 
00922000932 
009223001030 
009280011422 
0092:0011%2 
00928001333 
0092300152 
0092:0049%2 
009230049%2 
00922002230 
00922002533 
009230026! 4 
0092:0026%4 
0092:0026!%14 
0092:0027:2 
009280090933 
00923003030 
0092:003333 
0092:0034:0 
0092800372 
009238003782 
00922004230 
00928004230 
00923004230 
0092:004732 
0092:0047%2 
00922004722 
00921004732 
00923004732 
00923004834 
009230052t1 
0092100532 
0092:005333 
NEXT SEG 
00033050923 
0003:050933 
0003:0509%3 
000330509%3 
00033050933 
0003%050933 
000347050933 
00033050933 
00033050933 
0003050983 


2 


3 


C) 


Q 


JeQiyey™t13 
DO 
BEGIN 
STOPDEFINE «TRUE STEPIT3 SCATTFRELBATS 
IF FORMALFe«SPECTOG 
THEN 
BEGIN 
IF ELCLASS#SECRET 
THEN FLAGE002)3 
BUP+BUP+1 
3 KLASSFeTYPESMAKEUPACCUMS Es Jedat3 
END 
FLSE 
BEGIN 
IF FLCLASS?1InMAX AND ELCLASS<MULOP ¥112= 
THEN IF FLCLASS= POLTSHV THEN ELCLASS«TYPE ELSE FLAG(3)3 
IF LEVELFELEVEL 
THEN FLAGCO04)3 
VONFeP 23 
FORMALFePTOGs 
IF XREF AND NOT SPECTOG THEN % ERASE PREVIOUS XREF ENTRY, 
XREFPT*#XREFPT@REALCELBATLIJ#40)23 & GET RIO OF LAST CREF 
KLASSF«TYPES MAKEUPACCUMSE3 Jeg4+43 
IF CCFORMALFePTOG) ORCSTREAMTOG AND NOT STOPGSP)) AND NOT P2 
THEN ADDRSFePJePUt! 
FLSE IF STOPGSP 
THEN ANDRSF«O 
ELSE ADDRSFIt=GETSPACECP2>LASTINFO+1)3 
PUTCTAKECLASTINFOJ& ADDRSF(16%372411]+LASTINFO)3 
END END 


UnTTL STEPITACOMMA OR STOPENTRY: GITALLOleJ 
END? 
PROCENURE UNHOOK} 
COMMENT 
UNHOOK ASSUMES THAT THE WORD IN FLBATEI] POINTS TO a PSUEFDO ENTRY 
FOR a~PARAMETER,1TS JOB 7S TO UNHOOK THAT FALSE ENTRY SO THAT 
E Wrtb WORK AS NORMAL, 
BEGIN 
REAL, WINKTseAeLINKP? 


we 


LABFL L? 
LINKT*STACKHEADLSCRAM] } LINKP*ELBATCIIJ,LINKS 
IF LINKTSLINKP THEN STACKHEADESCRAMJ¢TAKECLINKT) «LINK 
ELSE 
Lt IF A*TAKECLINKT) »LINKSLINKP 
THEN PUTCCTAKECLINKT)&CTAKECAIIC35¢35¢13 3» LINKT) 
ELSE BEGIN LINKT«A$ GO TO L END$ 
ENDS 
PROCEDURE MAKEUPACCUMS 
BEGIN 
IF PTOG 


THEN GTLeLEVELE ELSE GT1+LEVEL? 
ACCUMPO]e© ABSCELBATEI] & KLASSFE2%4127)] & REAL CFORMALFIC9#4731) 
& REALCVONFI£10%4731) & GT1611°4325) &ADDRSFL16237811) 
) 


START OF SEGMENT 


93 1S 


13372000 


13324000 
13325000 
13326000 
13327000 
13328000 
13329000 
13330000 
13331000 
13332000 
13333000 
13333500 
13334000 
13335000 
13336000 
13337000 
13338000 
13339000 
13340000 
13341000 
13341100 
13341200 
13341300 
13342000 
13343000 
13344000 
13345000 
13346000 
13347000 
13348000 
13349000 
13350000 
13351000 
13352000 
13353000 
13354000 
13355000 
13356000 
13357000 
13358000 
13359000 


13360000 
13361000 
13362000 
13363000 
13364000 
13365000 
13366000 
13367000 

17 LONG 
13368000 
13369000 
13370000 
13371000 


13373000 
13374000 


AA HHA AA HAHAH HAHAHA RHA HAART AHA HATA TAO OA A HAT A A A Ht a i 


tok OR OR OK 


00031050913 
00031051210 
0003!0542%0 
00032054230 
00033054333 
00033054333 
0003054434 
0003%0545%2 
000320545%2 
0003%0517:2 
0003051732 
0003:0521!2 
0003:0521!2 
0003#0521!2 
00031052133 
00038052234 
00031052732 
00033059733 
00031052982 
0003:0530t0 
0003!0530!4 


00033053230. 


0003:80534%]4 
0003!0537:3 
00033053933 
0003:0541:2 
0003!'0543%2 
0003:20544:0 
0003205472 
0003205493 3 
00039054933 
00037054933 
00032055220 
00033055332 
00038055332 
0003%0553%2 
0003!0553:2 
000305532 
0003805532 
00033055332 


009330000!0 
00933000030 
00931000233 
0093000533 
0093'0006t0 
0093300084 
0093300142?) 
009330044%4 
NEXT SEG 
00032055332 


93 


3 


00033055382. 


000370553i2 
00034055420 
0003%0556%4 
00032055933 
000323056230 


GO 


técore Dasines: Fess, Inc sv 
CO} 


=) 


O 


O 


O 


me 


BETAL? ENTERCTYPEV) 


SAVEINFO« 3 


ENDS 
PROCEDURE ARRAE} 
BEGIN 
INTEGER SAVEYNFO? 


LABEL BETA? 
TYPEVeREALARRAYIDN? 
IF TyeGTAt(Jege1)20 THEN Jeut] 


P2eTRUEFIF SPECTOG THEN 


ELSE 
IF TisOWNV THEN 
BEGIN 
FLAGC13) 
END 
ELSE 


IF FLCLASSZ#LFTBRKET THEN FLAGC16)3 
TF STEPT=ELITNO THEN 
BEGIN 
SAVETNFO*ELBATLTII.ADDRESS} 
If STEPIZRTBRKET THEN FLAG(53)3 


FILLSTMTCSAVEINFO)3 


END 
ELSE 
BEGIN IF ELCLASS#ASTRISK THEN FLAG(56)3 
SAVEINFOe13 
WHILE STEPI#RTBRKET Do 
BEGIN IF ELCLASS#COMMA AND 
STEPIZASTRISK THEN FLAGC56)3 
SAVEINFO*SAVEINFO+1 
ENDSSTEPIT? 


ENDS PUTCTAKECLASTINFOJ&SAVEINFOL2S7 E4028 ]sLASTINE OD? 
Je 1 3 GTA1£0] «+ 0 5 

TF ELCLASS=COMMA THEN BEGIN STEPIT#G0 TO BETAL END 

END ARRAE$ 


PROCEDURE PUTNRUMP(X)3 
VALUE X3 
REAL X3 
BEGIN 
INFOCNEXTINFO,LINKReNEXTINGOsLINKC 1X3 
NEXTEINFOeNEXTINFO+4 
END 3. 
PROCEDURE JUMPCHKX3 


COMMENT THrS PRocepuRE 1S cALLEp AT THE START OF ANY EXECUTABLE CODE 
’ WHICH THE BLOCK MIGHT EMIT.rl DETERMINES WHETHER ANY JUMPS 
ARROUND NONEXECUTABLE CODE MAY BE WAITING AND WHETHER IT 


1S THE FIRST EXECUTABLE CODE3 


- TF NOT SPECTOG THEN 


BEGIN 
IF AJUMP 
THEN 
BEGIN ANJUST; 
EMITBCBFWsSAVEL?L) 


TYPEV*REALARRAYID+TLSREALVE 


13375000 
13376000 
13377000 
13378000 


START OF SEGMENT 


94 


1s 


13379000 
13380000 
13381000 
13382000 
13383000 
13384000 
13385000 
13386000 
13387000 
13388000 
13389000 
13390000 
13391000 
133927000 
13393000 
13394000 
13395000 
13396000 
13397000 
13398000 
13399000 
13400000 
13401000 
13402000 
13403000 
13404000 
13405000 
13406000 
13407000 
13408000 
13408500 
13409000 
13410000 

44 LONG 
13589000 
13590000 
13591000 
13592000 
13593000 
13594000 
13595000 
13596000 
13597000 
13598000 
13599000 
13600000 
13601000 
13602000 
13603000 
13604000 
13605000 
13606000 


T 00033056251 
T 00032056333 
T 0003056333 
T 00031056333 
Pee. Se 2s 


BHAA HAH HAHAHAHAHA AAAI HA AS TW HH 


SS ee 


0094:0000:0 
0094%0000:0 
00942000034 
00942000420 
0094:0005%2 
0094:0006:0 
00943000631 
00943000733 
0094:0008?4 
0094:0009!2 
009420009%2 
0094%0011:°2 
00943004234 
00943004434 
0094'004523 
00942001620 
009480014723 
0094:0020%0 
00942002021 
009420020133 
00943009133 
009420020133 
00943002430 
0094:002434 
009423002684 
00943200272 
00943000933 
0094:0030:0 


00943003230 . 


00943003230 
00941003431 
00942003631 
0094003834 
NEXT SEG 
00032056333 
00033056333 
00032056383 
00033056383 
00032056383 
00033056782 
00033056732 
0003'0568%1 
0003#0568!4 
00031056831 
0003%056831 
00033056834 


0003%0568%1- - 


00032056933 
00033057080 
00038057030 
000305700 
00038057142 


94 


O 


oe 


C) 


} 
Z 


‘Ss C} (> 


a 


{ } 


O 


ee) 


O 


O ~© 


O 


END FLSE 


TF FIRSTX=4095 


THEN 


BEGIN 


ADJUSTS 


FIRSTX«hL3 


END3 


AJUMPeFALSE 


END: 


PROCEDURE. JUMPCHKNX# 


EMITTED AND TF SO WHETHER 


AND SAVED FOR A LATER BRANCH3 
TF NOT SPECTOG THEN 


BEGIN 


IF FYRSTX#4095 


THEN 
BEGIN 


TF NOT AJUMP 

THEN 
SAVELeBUMPL 3 
AJUMP«+TRUE 
ENDS ADJUST 


FNS 


PROCEDURE SEGMENTSTARTCSAVECODE)F VALUE SAVECODE# BOOLEAN SAVECODE?3 


BEGIN 


STREAM PROCEDURE PRINTCSAVECODE,ADRFIFL)3 


BEGIN 
LABEL Lis 


DItsFIELs 
STtsF TELS 


nosis 


O58 Ly ts 
9 WOS; Dyt=D1"33 
SAVECODECNS?=38 LIT "START OF SAVE SEGMENT? 


JUMP OUT TO L1)3 


DS:=38 LIT " START OF REL SEGMENTS DISK ADDRESS 


S1Tt=LOc ANR3 
FND PRYNT$3 
MOVE C4 + SAVECODE,CONECO))3 


IF SAVECODE AND INTOG AND 


DSts5 DCS 


IF y,ISTER OR SEGSTOG THEN 
BEGIN 


PRINTCSAVECODE+ TF SAVECODE THEN CORADR ELSE DISKADRe LINE #193 


IF NOHEADING 
END} 
END SEGMENTSTART3 


PROCEDURE SEGMENT(SIZEsFR)? 


BEGIN 


THEN DATIMES 


VALUE SIZE» FR3 


STREAM PROCEDURE PRINTCSIZEsFIEI,)3 


BEGIN 


DYItsFIELSs 


ST3 
Nys 
Sti 


NSés 


8B LUT tts 


FIELS O0S%=14 WOS; 


DI=163 NS$#s6 LIT"S!ZE= 
DSt=6 LIT" WORDS" 


LOC SIZE3 


DS%&=4 pEc3 


"es 


COMMENT JUMPCHKNX pF TERMINES WHETHER ANY EXECUTABLE CODE HAS BEEN 
IT WAS JUST PREVIOUS TO THE 
NON EXECUTABLE ABOUT TO BE EMITTED,IF BOTH THEN L IS BUMPED 


NOT DECKTOG THEN FLAG(57)3 


WRITELINES 


VALUE SIZE3 


VALUE SAVECODEs ADR? 


BASE ANDRESS 


INTEGER SITZEsFR3 


95 15S 


13607000 
13608000 
13609000 
13610000 
13611000 
13612000 
13613000 
13614000 
13615000 
13616000 
13417000 
1363;8000 
13619000 
13620000 
13621000 
13622000 
13623000 
13624000 
13625000 
13626000 
13627000 
13628000 
13629000 
13630000 
13631000 
13632000 
13632100 
13633000 


START OF SEGMENT 


13634000 
13635000 
13636000 
13637000 
13638000 
13639000 
13640000 
13641000 
13642000 
13643000 
13651000 
13651100 
13652000 
13652500 
13653000 
13653500 
13654000 
13655000 

40 LONG 
13657000 
13640000 
13661000 


START OF SEGMENT 


13663000 
13665000 
13667000 
13668000 
13670000 


ies Dee Bite tee Rte ieee te i Be en i ene ee een eee ee eee Le ee 


00033057280 
0003%0572t4 
000330573!2 
00033057333 
00033057430 
00038057434 
0003!0575!3 
0003057513 
000380575!3 
0003:0578t0 
00031057810 
00031057810 
00032057810 
0003%0578!0 
000310578:0 
00033057834 
00033057982 
0003:0579!2 
00032057933 
00032058010 
0003:0580!0 
0003:0580'4 
0003:0583:2 
00034058332 
00033058333 
00033058630 
00033058620 
00033058630 
ake I 3K oe a ae ok 9 
00953000030 
00953000080 
0095:0000:0 
00953000133 
00953000210 
0095:0008!0 
00958000932 
0095004430 
00953004410 
009530044'4 
0095:0044%4 
00953004982 
0095:002284 
00953002410 
00951002484 
00953000783 
009540039%2 
009540039%2 
NEXT SEG 
00032058610 
00031058610 
0003%30586:0 


Peer ee eS 9 


0096%0000:0 
0096000030 
00962000123 
00962000230 


5 


3 


6 


0096#0003%2 


C} C) (} 


C) 


(3 es i. 


CG) 


C) 


C) 


© 


C) 


Soe # 


Can 


Oo O. 


OQ 


} 


~, 


Cy oD) 


END PRINT} 


STREAM PROCEDURE DOTTCCreAsToSeFeWN)$ VALUE CoAeFoN3 


BEGIN LOCAL N3 
Dpt=S$ NSt=B yt" 3 Syps=S3 ynSt=9 woSs 
DissDI=8s SYPtaLOC We DSt=a DEC: 


STi=re SptaST+ Os D tahoe Ni DIF=DI473 DS?=CHR3 
NptsSt StteaLoc Fs Sis=Si+73 OS#=cuHrs S}t=L0C C3 
NSt=3 DECs NSt=4 DNECZSTesl3 STt=S14+1130St=2N CHRE 
END DOTT3 

IF LISTER OR SEGSTOG THEN 
BEGIN 


PRINTCSIZEsLING *J1 93 
: NOHFADING THEN DATIME? WRITELINE? 
ENTS 
IF STUFFTOG THEN IF FR>O THEN Ir LEVEL>4 THEN 
REGIN 
KLASSFi=TAKECPROINFO).CLASS3 
IF FR > 10294 THEN FReFRe{0243 


DOUTTCKLASSF »FRs INFOLPROINFOaLINKR»PROINFO.LINKCI] 2 


TWXALO]SSAFeSIZF)3 
WRITECSTUFF oe 10sTWXAL%I])3 
ENO: 
IF SIZF2SEGSIZEMAX THEN SEGSIZEMAX!S=SIZF3 
END SEGMENT? 


STREAM PROCEDURE MOVECODECEDOC,TEDOC)3 
BEGIN LOCAL T1,T2,T33 
SteFDOC#T1+ST3 
ST+TEDOCS T2¢S]3 
Sre1oC FDOC; 
SleS]+33 
Dretoc 133 
Dleni+5;3 
SKIP 3 DB3 


15CIF SB THEN DS« 1 SET FLSF DS#t RESETSSKIP 1 $B)3 


Sf* LOc ENOc3 
Dre LOc Teas 
NSe 5 CHR: 


3¢1F SR THEN DSet SET ELSF nSe1 RESETSSKIP 1 $R)3 


Dl+T33 
SteLoc T23 
DSewDS3 
DleLoc T33 
Dlen?r+53 

SKIP 3 DR3 
Sl+LOc TENOc: 
S1«S1+33 


1SCTF SB THEN DSe1 SET ELSE DS* 4 RESETSSKIP 1 $B)3 


Ste LOC TEDOCS 


Dre LOC 143 
DSe 5 CHR3 
3CIF SB THEN DSe1 SET ELSE DSe1 RESETSSKIP 4 SB)3 
DI«T33 
ST*#!,0C 143 
DSeWwOS 
END; 


PROCEDURE FNTERCTYPE)3 


96 1S 


13673000 
13673100 
13673150 
13673200 
13673250 
13673300 
13673350 
13673400 
13673450 
13674000 
13674500 
13675000 
13676000 
13677000 
13677100 
13677150 
13677200 
13677250 
13677300 
13677400 
13677500 
13677600 
13678000 
13681000 


47 LONG 


13683000 
13684000 
13685000 
13686000 
13687000 
13688000 
13689000 
13690000 
13691000 
13692000 
13693000 
13694000 
13695000 
13696000 
13697000 
13698000 
13699000 
13700000 
13701000 
13702000 
13703000 
13704000 
13705000 
13706000 
13707000 
13708000 
13709000 
13710000 
13711000 
13712000 
13713000 
13714000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
T 
T 
T 
T 
T 
s 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


00962000484 
0096%0005%2 
0096:0005%a 


00962000530. 


00962000732 
0096:0007t3 
-0096!0009%2 
0096%0010:0 
00963001133 
00961004230 
00963004382 
0096!0043!3 
009630015%2 
009620026%4 
0096'0026!4 
00963002933 
00963003070 
0096:0032t0 
0096003431 
00963003733 
0096!003932 
0096:0043%2 
0096380043132 
00963004522 
NEXT SEG - 
00033058630 
00033058630 
00038058630 
0003720586!1 
00033058732 


00033058732 _. 


0003%058733 
00033058783 
0003%0588:0 
0003'0568!0 
00033059020 


3 


00032059081 . 


00038059074 
00033059422 
0003%0593%9 
0003:0593%2 
0003%05933 3 
0003'0593%3 
00032059430 
00033059430 
00032059434 
00032059434 
0003%0595t0 
000330597392 
0003:20597%9 
0003059733 
0003%059733 
00033059933 
0003'0600:0 


- 0003%0600:0 


00033060084 
00033060031 


_— 


C) 


Cy 0) 


C) 


© 


VALUE TYPE? 


RrAL TYPE; 
BEGIN 
GeGTAthJedeiT3 
IF NOT SPECTOG 
THEN 
BEGIN 
IF NOT P2 
THEN ITF Pe+CG=OWNV) 
THEN GeGTAL(CJeJ"1)3 
IF NOT P3 
THEN IF P3«C(G=SAVEV) 
THEN GeGTAL(CJeJ"1) 
END} 
IF G40 THEN FLAGC25) FLSE ENTRYCTYPE) 
END} 


PROCEDURE HTTEOAPCGOTSTORAGE »RELADsSTOPPERsPRTAD)3 
VALUE GOTSTORAGE»RELAD»STOPPERsPRTAD} 
BOOLEAN GOTSTORAGES 
REAL RELAN»STOPPER,PRTAD; 
BEGIN 
TF FUNCTOG 
THEN 
BEGIN 
EMITV(513)3 
EMITOCRTN) 
END 
ELSE 
EMT TO¢XyT)3 
CONSTANTCLEANS 
PURGECSTOPPER)3 


MOVEC1+CODF(0)4Z)% PROGDFSCBLDROEPRIADs BOOLEANCZ)e(L4+3)DIV AePDFS)S 


END HTTEOAPS 
PROCEDURE INLINE 
BEGIN 
INTEGER SNoLNePoLSe Js BOOLEAN MKST; 


BOOLEAN FLIPFLOP: 
INTFGER PN} 
LABEL Li»L2°lL33 
PNe4 3 


FLIPFLOP*©INLINETOGe TRUES Pe Os MKSTeFALSESLSeLSEMITOCNOP)$ 


IF STEPT#LEFTPAREN THEN FLAG(59)3 


IF TABLECI+1)=COLON THEN BEGIN STEPIT3GO TO L2 END 
it YF STEPI>IDMAX THEN BEGIN FLAGC465)? GO TO L2 END 
AcCUMrFO] +ORPL163375 1, TRLOCLIDC 2:41.13 77eSCRAML 3533521373 
FsTtF FLIPFLOP THEN BFGIN FLIPFLOP+#FALSESLN©SN©LASTINEO END3 
IF STEPISCOMMA OR ELCLASS=COLON OR ELCLASS=RTPAREN 


THEN BEGIN [T+1*23STEPIT END 


ELSF 'F ELCLASS#ASSIGNOP THEN FLAG(60) ELSE STEPITS 


AFXP? 
L?$ IF ELCLASSsCOLON THEN 


BEGIN IF MKST THEN FLAG(99)% MKST«TRUES FMITOCMKS)? 
IF TABLECI+12#RTPAREN THEN GO TO L413 STEPYT 


>PNe23 
END FLSE P«P413 
IF ELCLASS=COMMA THEN GO TO Li43 


13715000 
13716000 
13717000 
13718000 
13739000 
13720000 
13721000 
13722000 
13723000 
13724000 
13725000 
13726000 
13727000 
13728000 
13729000 
13730000 
13731000 
13732000 
13733000 
13734000 
13735000 
13736000 
13737000 
13738000 
13739000 
13740000 
13741000 
13742000 
13743000 
13744000 
13745000 
13746000 
13747000 
13748000 
13749000 
13750000 


START OF SEGMENT 


13750500 
13750600 
13751000 
13751100 
13752000 
13753000 
13753100 
13754000 
13755000 
13755500 
13756000 
13757000 
13758000 
13759000 
13760000 
13761000 
13761100 
13761110 
13761200 
13762000 


A AHA ARH TAA HAH ATA KATH HAA A AA A AA SA A HA He es 


0003:0600%1 
0003:0600% 4 
00032060034 
0003:060034 
000330603!2 
0003!0603%2 
0003+060333 
000340604!0 
0003:060420 
0003:0605?2 
00032060834 
00035060834 
00033061030 
00033063234 
00032064383 
0003%064620 
00033061722 
0003:0647%2 
00038061782 
00038061732 
0003!0647%2 
00033061722 
0003:0617!2 
0003:06473%2 
00033064723 
0003:0618%14 
0003%0618%4 
00032061932 
000320619%2 
0003!0620%4 
0003:062182 
00032062133 
000330628:0 
00033062834 
00033062834 
000330620684 


kok RK EK SOK 97 


0097#0000:0 
00973000020 
00971000080 
0097000030 
00978000081 
0097%0005:2 
0097:0007!2 
00971001084 
00971004383 
0097:0016:0 
00973002132 
0097#002333 
00971002684 
0097%0030%0 
00971003084 
0097003133 
00978003684 
00973003834 
0097:004020 
00971004133 


C\ 


Cy 


‘@ 


5) 


Oe 


O 


Omar ©) 


Ge 


a, 


O 


Or Oe ae 2) 


O “2 


IF FLCLASSARTPAREN THEN FLAGC61)3 
If NOT MKST THEN 
BEGIN JeLoleLSsEMyTOCMKSI3 Led ENDS 
---TF-STEP] # SEMICOLON THEN FLAG(62)3 
EMITO0¢584)3 


L3tELRATIT 1«TAKECSN)SSCATTERELBATS ADDRSF ePSADDRSE # 

PUTCFLBATFII&ADORSFL1L6% 372111 8STACKHFADFLINKFIL33233%15]+SN)3 

STACKHEADILINKFJ©SNS SNe&SN+INCRE3 

-—F ADDRSF#PN THEN GO To L3 + 

INLINETOGe FALSES 

PNeNEXTINFOS 

STREAMTOGeTRUES STREAMWORDSS IF STEPT#BEGINV THEN STREAMSTMT 

ELSE BEGIN STEPITSCOMPOUNDTAIL END? 

STREAMTOGeFALSE*PURGECPNI 3 STREAMWORDS$ PURGECLN)FEMITLC1693 


END INLINES 


97 1S 


COMMENT THIS SecTrON CONTAINS THE BLOCK ROUTINE 3& 
PROCENURE RLOCKCSOP); 
VALUE SOP; 
ROOLEAN SOP3 
COMMENT SOP 1S TRUE IF THE BLOCK WAS CALLED BY ITSELF THROUGH THE 
PROCEDURE DECLARATION*OTHERWISE IT WAS CALLED BY STATEMENT, 
THF BLOCK ROUTINE 1S RESPONSIBLE FOR HANDLING THE BLOCK 
STRUCTURE OF AN ALGOL PROGRAM=SEGMENTING EACH BLOCK»HANNLING 
ALL DECLARATIONS* DOING NECESSARY BOOKKEEPING REGARDING EACH 
BLOCK» AND SUPPLYING THE SCANNER WITH ALL NECESSARY INFORMATION 
ABOUT DECLARED IDENTIFIERS, 
IT ALSO WRITES EACH SEGMENT ONTO THE PCT; 


- BEGIN 


LABEL OWNFRR»SAVERR» BOOLEANDFC+REALDEC »ALPHADEC » INTEGERDECs 


13763000 
13764000 
13765000 
13766000 
13766100 
13766200 
13766300 
13766400 
13766500 
13767000 
13768000 
13769000 
13770000 
13770500 
13770600 
13771000 
13772000 
13773000 
13773500 
13774000 

76 LONG 
14000000 
14001000 
14002000 
14003000 
14004000 
14005000 
14006000 
14007000 
14008000 
14009000 
14010000 
14011000 
14012000 
14013000 


START OF SEGMENT 


LABFLDEC»DUMPDECs SUBDECsOUTDEC eI NDEC»MONI TORDEC. 
SWITCHDEC »PROCFDUREDEC,ARRAYDEC,NAMEDECSFILEDECs 
GOTSCHK»FTELDDEC®AUXMEMERR» 
_  STREAMERR*+DEFINEDEC,CALLSTATEMENT eHF » START? 
SWITCH DECLSW « OHNERR» SAVERR»* BOOLEANDEC +REALDECs INTEGERDEC®s ALPHADEC> 
LABELDEC »DUMPDEC » SUBDEC »OUTDEC*s INDEC» MONI TORDECs 
SHITCHDEC ePROCEDURFDEC *ARRAYDFC »NAMEDEC*FILEDEC? 


a112% 


STREAMERR+ DEF INEDEC*e AUXMEMERR oF IELDDEC %112= 
DEFINE NLOCS=10#,LOCBEGIN=PRTT#, 
LBP=r36%42]#, 
SPACEITONOWN = WRITECLINFE PAGE] )#3 ¥902= 


. BOOLEAN GOTSTORAGES 


INTEGER PINFOO,BLKADS 
COMMENT LOCAL TO BLOCK To SAVE WHERE A PROCEDURE IS EMTERED 
IN INFO} 


REAL MAXSTACKOs LASTING OT? RELAD sO» TSUBLEVEL » STACKCTROS 


INTEGER SGNOO,LOLD,»SAVELO»sPRTJO+oNINFOOS 
INTEGER NCTIOS 
INTEGER PROAD 3 
INTEGFR FIRSTXO3 


14044000 
14015000 
140716000 
14017000 
14018000 
14019000 
14020000 
14021000 
14022000 
14023000 
14023100 
14024000 
14025000 
14026000 
14027000 
14028000 
14029000 
14030000 
14031000 
14032000 
14033000 


AA AHHAH HAHAH VHA VHA AH UAH HR AHHH AR AHA ATT AAA tA A tT A A Ht Ht 


00972004332 
00973004532 
009730045: 3 
0097:0049%2 
00972005122 
00978005220 
00973005230 
0097#0052!0 
00972005230 
0097:0052:0 
00972005533 
00973005834 


00972006122. 


0097%0062:0 
0097#0063%2 
009720063383 
00973006634 
009730068314 
0097:0072:90 
00973007230 
NEXT SEG 

0003:06283 1 
00033062834 
0003306288 4 
000330628341 
00033062824 
00038069841 
000330620834 
00033062831 
0003°0628#4 
000330628: 1 
00033062831 
00033062831 
0003:0628:1 
0003!062831 
9 OR OK oe 9 
0098:0000:0 
0098:0000:0 
00983000030 
0098:0000306 
00982000030 
00982000221 
00983000231 
0098300023 1 
009880014323 
009830043%3 
0098:0013:3 
00982001333 
0098!0043%3 
0098004333 
0098:001333 
00982004333 
009823001323 
0098:0013%3 
0098'00143:3 
00982001333 


3 


8 


0098#0013%3 


O 


Ci 6G) 


C) 


G+ “te . 3) 


C) 


C) 


O 


} 
, 


C) 


O oa 


fates sae. 2 BOOLEAN FUNCTOGO*r+AJUMPOS 


RFGINCTReBEFGINCTR413 

1F SOP 

. THEN BEGIN BLKAD}*PROADO: 

IF LASTENTRY # 0 

THEN BEGIN GT1«BUMPL3 

Sao ee, CONSTANTCLEANS 
EMITBCBFWeGT1>L) 

END 


me ee Pe END 


ELSE BFGIN BLKADS=GETSPACECTRUEs"6)? % SEG. DESCR, 


ENDS 


FYRSTXO«FIRSTX3 
penne ae ys FIRSTX«03 
LEVELeL,EVEL+13 
LOLDeLFIFUNCTOGO*©FUNCTOG# AUUMPO¢AJUMP3PRTIO*PRTI IS SGNOO*SGNO3 
SAVELO*SAVELS AJUMPeFALSES LeOsSNINFOOeENFXTINE OS 
NCTTOeNCTI3 
NCI «03 
STACKCTRO«STACKCTRI 


ELBATL 11, CLASS«SEMICOLONS 
START? yF TABLECI)#SEMICOLON 
THEN 
[De ae BEGIN 
FLAGCO)3 
Ter 
Matte END? 
aTALILO]« «03 
1F SPECTOG 
ea Se, wee geten: 2s, Age THEN 
BEGIN 
IF BUP=PJ 
ean ee re : THEN 
BEGIN 
BEGIN LABEL, GETLPS3 


TF STREAMTOG THEN FeO ELSE 
FeFZERO3 
BUP+LASTINFOS 
po 
BEGIN 
eet. fo IF NOT STREAMTOG THEN 
BUP«+LASTINEO3 
GETLP! GeTAKECBUP)$ 
SA tet te A OD -_ IF k«+G,ADDRESS#Py 
THEN 
BEGIN 
PS eee Sy 38 IF BUP # RBUPs=BUP* TAKECBUP + 1),PURPT THEN 
GO TO GETLP 
END? 


X102" 


14034000 
14035000 
14036000 
14037000 
14038000 
14039000 
14040000 
14041000 
14042000 
14043000 
14044000 
14045000 
14046000 
14047000 
14048000 
14049000 
14050000 
14051000 
14052000 
14053000 
14054000 
14055000 
14056000 
14057000 
14058000 
14059000 
14061000 
14062000 
14063000 
14064000 
14065000 
14066000 
14067000 
14068000 
14069000 
14070000 
14071000 
14072000 
14073000 
14074000 
14075000 
14076000 


START OF SEGMENT 


14077000 
14078000 
14079000 
14080000 
14081000 
14082000 
14083000 
14084000 
14085000 
14086000 
14087000 
14088000 
14089000 
14090000 


AHUVAHH HHH HAAR FAH HAHA ARASH HAHAHA TH A A HH I a 


00982001333 
009830043!3 
0098:0015!2 
00983004512 
009810046814 
0098:0047%2 
00984004933 
0098:002010 
0098:0021%2 
0098:0021%3 
0098:0021!3 
0098:0093:3 
00983009333 
00983002333 
00988009333 
00982002383 
00981002333 
0098:0093!3 
0098:0024%4 
00981002532 
0098:0026314 


0098:0030:0. 


0098:0033%2 
0098:0034%0 
009830034314 
00983003533 
0098!003533 
0098#0035:3. 
0098?0038:0 
0098:0038:4 
0098:0039%2 
00983003933 
00983004041 
0098:0040%4 
00982004133 
0098:004353 
0098:0043%3 
0098:004353 
0098300440 
0098:0044!14 
00983004532 
0098:0045%3 


aka KK OK 99 


00993000030 
00993000133 
00991000234 
0099:30093:3 
0099:0004:0 
0099%30004:0 
00998000434 
00993000533 
0099;000732 
00993000834 
009920009%2 
00993000933 
00993001224 
00994001221 


C) 


C) 


TYPE VeG.CLASS3 
GeADDRESSeFeF st? 
PUT¢G»BUP)3 G,INCR«GT13 
PUT ¢G»eMARK+PJ) 
;BUP+BUP=TAKECBUP4+1),PURPT 
END 
UNTIL PwePJ*4=0 
END$ 
SPECTOG*FALSE3 
GO TO HF 
END 
END3 


STACKCT « 93 
WHILE STEPISDECLARATORS 
DQ 
BEGIN 
GTAP JeJ+t] ¢ELBATEI], ADDRESS; 
STOPDEFINE*+ERRORTOG+TRUES 
END3 
IF J =O THEN GO TO CALLSTATEMENTS 
P2e¢P3eFALSES 
GO TO NECLSWEGTAICJII3 
OWNERR#FLAGC20)3;Jed413GO0 TO RFALDEC? 
SAVERR&SFLAGC 2123 Jed¢13G0 TO RFALDECS 
AUXMEMERREFLAG(618)s U8 eU+13G0 TO REALDEC: ¥ 


STREAMERR? IF ELCLASS = LEFTPAREN THEN 
BEGIN 
Ter a 
GO To CALLSTATEMENT? 
END$ 


FLAGC22)3 
Je Jt 13 
GO TO PROCEDURFODFCS 
REALDEC!P3«TRUESENTFRCREALIDI3GO TO START; 
ALPHADEC ?P3«TRUESENTERCALFAIDI3GO TO START 
BOOLEANNEC?P3+TRUESENTER(CBOO0INI3GO TO START? 
INTEGERNECIP3¢TRUESENTERCINTIDI3GO TO STARTS 
MONTTORDEC!? IF SPECTOG 
THEN BEGIN COMMENT ERROR 463 MEANS THAT A MONITOR 
DECLARATION APPEARS IN THE SPECIFICATION 
PART OF A PROCEDURE: 
FLAGC A633 
END; 
NO UNTIL FALSE 
nUMPDECI IF SPECTOG 
THEN BEGIN COMMENT ERROR 464 MEANS A DUMP DECLARATION 
APPEARS IN THE SPECIFICATION PART OF A 
PROCEDURES 
FLAG(CA64)3 
END: 
D0 UNTIL FALSES 
ARRAYDEC? ARRAE$ GO TO START3 
FILENEc: INDFC? OUTNECE 
GOTSCHKIGOTSTORAGE*® NOT SPrcTOG OR GOTSTORAGES GO TO STARTS 
NAMFDEC!? TF TleaTAirdeJmLI4ARRAYV THEN JeJ+13 
TYPEVeNAMETDS 


BR AQ BV FR BE BW DQ BR 


—_ 


AOananaand nd 


99 1S 


14091000 
14115000 
14116000 
14117000 
14118000 
14119000 
14120000 
14121000 


27 LONG 


14122000 
14123000 
14124000 
14125000 
14125500 
14126000 
14427000 
14128000 
14129000 
14130000 
14131000 
14132000 
14133000 
14134000 
14135000 
14136000 
14136100 
14137000 
14137100 
14137200 
14137300 
14137400 
14137500 
14137600 
14137700 
14138000 
141439000 
14140000 
14141000 
14142000 
14143000 
14144000 
14145000 
14146000 
14147000 
14148000 
14149000 
14150000 
14151000 
14452000 
14153000 
14154000 
14155000 
14156000 
14158000 
14160000 
14161000 
14161010 


HA HAW AAR AR AHA HAT RAH AA HH TAR FARO RATA AAT HAHAHAHA AAA ANIA 


009910043! 
009920044: 
0099300173 
009930020: 
00993002034 
00993002383 
0099%0024:0 
0099'002533 


2 
1 
2 
Q 


NEXT SEG 98 


00983004630 
0098:0046!%1 
0098004732 
00988004782 
00983004782 
00984004820 
009830048314 
0098:004933 
00983004933 
00983005231 
00982005333 
0098:0054:0 
00983005533 
00983005631 
0098:005932 
00982006133 
0098:00643 4 
0098:0067!3 
0098:006834 
0098!0069+2 
00987007024 
0098:007132. 
0098s 0071i:2 
00983007133 
0098:0073t2 
009823007383 
0098007630 
00983007830 
0098008030 
0098008210 
0098?0082:0 
0098?0082:1 
0098100821 
0098300623 1 
009830083: 3 
0098:008333 
0098:0084:1 
0098:0085!2 
0098:0085!3 


-009830085'3 


00983008533 
0098:008671 
00983008631 
0098:0087!3 
0098:0089%2 
0098t0089%2 
0098#009132 
009830095%2 


eo CT) C) e Cy C) 


CO) 


C) 


Se Perna, Ines 


SUBDEC? 


IF T1eGTAg(Jeu"1)=0 THEN Jett 


ELSE 
IF TLFOWNV 
THEN 
BEGIN 
P2«TRUES} IF SPECTOG THEN 
FLAG(O13) 
END 
ELSE 


TYPEVeNAMEID+ TI" REALVE 


ENTFRCOTYPEV)# GO TO START; 


BEGrN REAL TYPEVeT3 


IF GTAtEded™t]SREALVY THEN TYPEVeREALSUBIN ELSE TYPEV«SUBID; 
STOPGSP«TRUES 
JUMPCHKNXSENTRYCTYPEV)31F ELCLASS#SEMICOLON THEN FLAGCS7)3 
STOPGSPeFALSES 
STePyT3 


TeNEXTING OS 


PUTNBUMP¢I,393 STMT$ EMITOCLFUD: 


CONSTANTCLEANS 


END: 


GO TO START; 


If TYPEVSREALSUBTD THEN 
IF GETCL=2)4533 THEN FLAGCSB)SPUTCTAKECT)&L624236212].T)3 


LARFLDFeSIF SPECTOG AND FUNCTOG THEN FLAGC24); 


STOPENTRY«STOPGSPeTRUES 


BEGIN 
STOPDEFINE«TRUE; 
STEpITs 
FNTRYCLABELID); 
PUTNRBUMP (0) 
END 
UNTIL elolass#cOMMas 
STOPENTRY«STOPGSPEFALS FS 
60 TO START: 


SWyTCHDre: 


14161050 
14161060 
14161070 
14161080 
14161090 
14161100 
14161110 
14161120 
14162000 
14163000 
14163500 


START OF SEGMENT 


14164000 
144164500 
14165000 
14166 
14166000 
14166500 
147467000 
141468000 
14168500 
14169000 
21 LONG 
14170000 
14171000 
14172000 
14173000 
14174000 
14475000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
14184000 
14185000 
14186000 
14187000 
14188000 
14489000 
44490000 
14191000 
14492000 
14193000 
14194000 
14195000 
14196000 
14197000 
14498000 
14199000 
14200000 


AAHHA HAHAHAHA FHA AH AHA AHA AAA HAA HH * HAHAHAHA tA Kk AH A ARH is 


eee. ass 


0098:0096:0 
0098:0099%2 
0098:0100:0 
0098:0101:2 
0098:0101:3 
0098:0102:0 
0098:0103%2 
0098:0103:33 
0098:0104:0 
0098:0104:0 
0098:0104:0 
00982010631 
0098:014073 3 
009837030830 


0100%0000:0 
01003000431 
0100:000532 
0100:0008?4 
0100:0009%2 
0100200093 3 
07,00:004034 
0100:0043%2 
0100+0049%2 
01003001933 


NEXT SEG 98 


0098:0109%2 
009830109383 
00982010923 
00982010933 
00982010933 
0098:010933 
0098:010933 


00983010983 . 


0098:010933 
0098:0109%3 
00982010983 
0098:0409%3 
0098:0109%3 
0098:0109?3 
00983010933 
0098:0109:3 
0098010983 
00983010933 
0098:0442:0 
0098304432 
00987044434 
0098:011532 
0098%0115%2 
0098:01145!3 
0098:011630 
0098:0117:2 
0098: 011782 
00982011783 
0098:0119%2 
0098:0120t0 
00983041270%1 


100 


pes BEGIN 


LABEL, STARTS 14201000 T 00983012182 
! 8 , 


14202000 T 0098!0121%2 
START OF SEGMENT #¥x«keRKER 104 


C) 


s aaa ss INTEGER GT1rGT2°GT4sGT5; 14203000 T 0101!80000%0-~-- ------- 

BOOLEAN TB13 14204000 T 0101:0000!0 
STOPENTRY*NOT SPECTOG;STOPGSP*TRUES 14205000 T 0101:0000:0 

SCATTFRELBAT3 GT1©Os; TRI“FALSES 14206000 T 01018000133 

FNTRYCSWITCHID)3 14207000 T 01015000383 
GT2eNeEyTyNPOs PUTNRUMP¢0);3 14217000 T 01018000484 

wo ee a -po 14218000 T 04304:000610 
BEGIN 14249000 T 0401%0006:0 
IF STEPIALARELID OR ELBATE YI] .+LVYLALEVEL THEN FLAG(63)3 14220000 T 01013000630 

fe see = PUTNBUMPCELBATEIJ)3GT1«GTIi4+4 14221000 T 0101:30010:0-.- 

EnD 14222000 T 0101:0011:2 
COMMENT 14222500 T 0101#0012:0 
UNTI], STEPI#C0OMMA} 14223000 T 0101:001230 
14223500 T 01018001333 

PUTCGT1I*GT2);3 14224000 T 01012001333 
x08 . STOPFNTRY « STOPGSP © FALSE3 14251000 T 0101:001481 
FND SWITCHDFC3 14252000 T 01014001630 

17 LONG» NEXT SEG 98 
Senora he gx ahs ow .... . g0 TO START 14253000 T 00983012230 
DEFINEDFC? 14254000 T 0098:0122%4 
BEGrN LABEL START? 14254050 T 0098t019332 

BE 4 START OF SEGMENT **e*eee Ree 8402 
REA, JeK$ 14254100 T 01023000030 
ROOLEAN STREAM PROCEDURE PARM(CSsDeKedy3 VALUE Keds 14254200 T 0102:0000:0 
- Bote BEGIN sles;Sl*Slt23; nleDsDIeDI +2; 14254300 T 0102:0000:0 
Ip K sc#pc THEN Tabbyels 14254400 T 01028000132 
DrehLOe Jsnlenie73 14254500 T 0102:0002:0 

ei Fueh es, Ir Se#¢Nc THEN TabLyel; 14254600 T 01023000231 . 
PARMeTALLY# 14254700 T 04023000332 
ENN: 14254800 T 04022000333 
2 3 STOPENTRY«STOPGSPeTRUES [equy3 14255000 T 0102!0004334 
DEFINING t= BOOLEANCREALCDEFINING) & 4£47247811])3 142955500 C 010230007!3 
D0 14256000 T 010280009:2 
ASS: ceGe se ae x BEGIN 14257000 T 0102:0010:0 
STOPDEFINE*TRUE} 14258000 T 01022001030 
STEPIT: MOVEC9*#ACCUML1]2GTa1)3 14259000 T 01023001034 
et - K*#COUNT+13 JeGTAILOJ;: ENTRYCDEFINEDID)S 14259010 T 0102:0013:2 
GTALLOJeUe"1 00000"; Yeos 14259015 T 01023001630 
IF ELCLASS=LEFTPAREN OR ELCLaSS®LFTBRKET THEN 14259020 T 0102:001831 
eee eee oe Bovae, ; RFGIN 14259030 T 0102%0020:0 
NO BFGIN STOPpHEFINE*TRUES 14259060 rt 01028002031 
STFPYTS 14259070 T 01023002133 
eeere ere = TF CuUed¢42>9 OR PARMCACCUME411]2GTAl»sKeJ) OR 14259080 T 0102:0022:0 
K>62 THEN BrGIN ERR¢141)3 GO TO START END3 14259090 T 0402:002634 
STOPDEFINE« TRUE} 142959100 T 0402!0031!2 

z las END UNTIL STEPI#COMMAS 14259470 T 01025003133 - 
IF ELCLASS#RTPAREN AND ELCLASS#RTBRKET THEN ERR( 14193 14259120 T 01023003332 
STOPDEFINE* TRUE; 14259130 T 010230036:0 
aes STFPIT? 14259140 T 0102:0037:2 
PUTCTAKECLASTINFO) R016: 37211) »LASTINFOD$ 14259150 T 01023003733 
FNn3 14259160 T 01024004030 
peru te, «Ss TF FlCbaSS#RFLOP 14260000 T 01023004030 
THEN 142763000 T 0402:0040:0 
BEGIN 14262000 T 04021004034 


o 


O 


Cc 


FLAGC30)3 

T«ley; 

END3 
_...  .MACROID*TRUES 
DEFINEGENCFALSE? 
MACROIN*FALSE$ 
END 

UNTIL STFPLTFCOMMAS 


DFFINING t= BOOLFANCREALCDEFINING) & Of 47847211)3 


START? STOPFENTRY+STOPGSP 


FIELDDEC: 
BEGIN 
REAL SAVEINFOs SBe NB 


BOOLFAN FOUNDLRs; 2 TRUF IF LEFT*BRACKET WAS USED IN FIELD SPEC. 


LaReh eXITs SAVEITS 


STOPENTRY ?= STOPGSP 
J} t= y= 43 
No 
BFGIN 
STOPDEFINE t= TRU 
STEPIT: 


ENTRYCFIELDID)$ 
SAVEINFO t= LAST! 


IF ELCLASS = RELOP AND ACCUMC1] 


BEGIN 


IF STEPI = LFTBRKET THEN % REMEMBER THIS 


BEGIN 
FOUNDLB 3 
STFPITS3 

END 

FLSe 
FOUNDLRB t= 
IF ELCLASS = 

BEGIN 
$B := EL,B 
NB = ELB 
GO TO SAV 

FEND$ 

IF FLCLASS = 

Ip STFPY = 

IF STEPY 
1F ¢SB 
(NB 


BEGIN 
SAVEITS 


PUTCTAKECSAVEINFO) & SB SBITF & NB NBITFs 
SAVEINFO)S 


STE 


IF FOUNDLR THEN & BETTER HAVE RIGHT BRACKET, 
RTBRKET THEN 


I 


Jo3 


«“FALSE3 ENn; 


; 
ts TRUE 


BS 


NFO3 


= TRUE? 


FALSE3 
FIELDID THEN 
ATC L)+SBITF3 
ATCIIJeNBITF; 
EIT; 


LyTNO THEN 
COLON THEN 
= LITNO THEN 


PIT; 


F ELCLASS = 
BEGIN 
STEPITS 


GO TO EXIT 


"1=0000" THEN 


ELBATEI=2]. ADDRESS) x 
= ELBATCI],ADDRESS) # 0 AND 
5B + NB < 48 THEN 


%108= 


Z1i1e" 
4112" 
e112" 


%112e° 
alia 
eii2- 
Zile- 
Z112= 
w1i12- 
41129 
%i1e- 
4112" 
ait2a= 
4112" 
Zilia 
4112" 
%1i1e" 
Zii2= 
aiien 
Z1li2~ 
*112= 
*112" 
2112" 
ai,2= 
eile= 
aiten 
B1i2" 
zite= 
a a 
gii2= 
Z1i1e2= 
Kila= 
Z1ii12= 
zite- 
“i1e" 
a1 ber 
4112" 
a112= 
e112" 
#112= 
“1129 
ailen 
%1i2= 
e112" 


192 1S 


14263000 
14264000 
14265000 
14265900 
14766000 
14266100 
14267000 
14268000 
14268500 
14269000 


51 LONG 


14269020 
14269040 
14269060 


START OF SFGMENT 


14269080 
14269100 
14269120 
142694140 
14269160 
14269180 
14269200 
14269220 
142769240 
14269260 
14269280 
14269300 
14269320 
14269340 
14269360 
14269380 
14269400 
14269420 
14269440 
14269442 
142694404 
14269446 
14269448 
14269450 
14269452 
14269460 
14269480 
14269500 
14969520 
14269540 
14269560 
14769580 
14269590 
14269600 
14269620 
14769640 
142769660 
14769680 
14269700 
14269705 
14269710 


MO IOAIIWAIDAAMAOYAAIOYMAABON AMWANMNAOAADIAMINAAAAANAANNANAAMANANANVOONA¥Xt OVO A® AON A AAA saa 


0102:0041%2 
01023004210 
010210043:2 
0102:0043:2 
01023004430 
0102:004532 
01023004533 
0102:0045:3 
01023004782 
014023004910 


NEXT SEG 98 


00983049484 
0098°0124%4 
O09B8F0L25%2 
0098:0125%2 


exe kK eR 103 


0103:0000:0 
0103800000 
010330000:0 
01037000122 
01038000234 
014032000332 
0103000332 
01035000333 
01033000430 
010323000532 
01033000533 
01038000733 
01033000830 
01033000982 
01033000933 
01035001031 
0103:00141:2 
010330041:2 
010330014%2 
0103!0043%3 
01403800,4%4 
01032001532 
01032001681 
010330018:0. 
0103:0018s14 
01038001481 
0103%00149%2 
0103:002034 
0190320002:0 
01033002431 
0103180027: 2 
010380028%4 


0103:002093:2 .. 


0103+0029%2 
01033003230 
01033003231 
0103:0033:2 
0103:003332 
01033003424 
0103:0035:2 
0103:003533 


Crh noe vi 


C) 


O 


FND : 
ELSE ¥% MISSTNG RIGHT BRACKET, 
ELSE 
GO TO EXIT} 
END3 
END} 
FLAGC114)3 
DO STEPIT UNTIL ELCLASS = COMMA OR ELCLASS = SEMICOLON? 
EXIT: 
END 
UNTYL 
ELCLASS # COMMAS . 
STOPENTRY t= STOPGSP t= FALSE? 
END; 


Go To START: 
PROCEDUREDEC: 
BEGIN 
LABEL START? START13 


LAaBFL START23 


%112= 
*1i2" 
aii2= 
z112= 
411e- 
a11t2° 
2112" 
¥112= 
z1li2= 
aiit2> 
%¥112™ 
Rite= 
Riles 
A112" 


4ii2= 


BOOLEAN FWOTOGs COMMENT TutS TOGGLE IS THE FORWARD DEC INDICATORS 


IF NOT SPECTOG THEN FUNCTOG«FALSE3 
FWOTOGeFALSE 3 
MAXSTBACKOe MAXSTACK3 
IF GeGTALCJed™4 JeSTREAMV 
THEN 
BEGIN STREAMTOG«TRUE;} 
IF GeGTaiCJedJ"1]=0 THEN TYPEV«*STRPROCID 
ELSE 
BEGIN 


TF TYPEV«PROCIp +#q>INTSTRPROCID OR 


TYPEV <BOOSTRPROCID 
THEN FLAGC004)3 
IF nol SPECTOG THEN 
FUNC TQGeTRUE3 


CHKSOR 
EnD END 
ELSE 
IF G=SAVEV OR GEO THEN TYPEV*«PROCID 


FLSF 


IF TYPEV*REALSTRPROCID+G<BOOPROCID OR TYPEV>INTPROCIN 


THEN FLAG C005) 
FLSF BFaIN Pe ee arora y 
ENDS 
1F NOT STREAMTOG THEN SEGMENTSTARTC(G=SAVEV)3 
SAF « GESAVEVS 


MODE*MODE+13 
LO“PROINFOS 
SCATTFRELRAT} 
COMMENT cHrck TO Sree TF DFCLARFN FORWARD PREVIOUSLY 
TF LEVELPSsLEVEL 
THEN 
BEGIN 


we 


103 IS 


14269715 
14769720 
14269740 
14269760 
14269780 
14269800 
14269820 
14269840 
14269860 
14269880 
14269900 
14269920 
14269940 
14269960 


44 LONG 


14269980 
14270000 
14271000 
14272000 


START OF SFGMFENT 


14273000 
14274000 
14275000 
14276000 
14277000 
14278000 
14279000 
14280000 
14281000 
14282000 
14283000 
14284000 
14285000 
14286000 
14287000 
14288000 
14289000 
14290000 
14291000 
14292000 
14293000 
14294000 
14295000 
14296000 
14297000 
14298000 
14299000 
14300000 
14301000 
14302000 
14303000 
14304000 
14305000 
14306000 
14307000 
14308000 
14309000 


Pree ee ee 2 


AA HAHAHAHAHAHA HAH HAA HOAs HA RH HAHA AH HA KRHA AXIO OIDAIANM DADAM OOAO 


0103:0036:0 
0103!0036:0 
01032003630 


0103003674 . 


01032003634 
01032003631 
0103:!003631 
01033003732 
01038004031 
0103:004132 
0103:0041:32 
0103:0041:2 


07032004230 . 


041034004333 


NEXT SEG 98 


00983012630 
00983012631 
0098012732 
0098:012732 


0104:0000:0 
01904:0000:0 
0104:000030 
0404:0001:3 
0104:0002'4 
01048000332 
01043000532 
01043000533 
0104:0007232 
01043001080 
0104:0010:14 
0104:001132 
01942001,3%2 
04043004382 
01042001532 
010430014533 
0104:001732 
0104:001732 
010430017133 
01043001733 
01043002021 
0104:00213:2 
0404:0023:3 
0104:002532 
01043002831 
0104:002B83 4 
0104+0031%2 
0104:0032:0 
0104:0032:0 
010430032:0 
0104:0032:0 
01043003333 
0104:0034:0 
0104003431 
010470034634 
04042003530 
01045003533 


104 


O 


Oo Oo oOo Oo me 269 


O 


IF GeTAKECLINKF +1920 
THEN FLAGCO06)3 


FWOTOG«TRUE? 
XMARKCDECLREF 93 % PROCEDURE DECLARED FORWARD:> MARK LAST %¥110= 
& XREF ENTRY AS A DECLARATION, %110= 
PROAD*ADDRSF 3 


PROINFOCELRATCI I sMARK*LINKE+INCRFEXSTEPIT 
. SPUTC™GeLINKEely3 
FNn 
PUSF 
RFGIN STOPENTRYeTRUF 3 P2eTRUE3 
STOPGSPeLEVELA1 AND STREAMTOG3 
ENTRYC(TYPEV)3 MARK«eNEXT NFO? PUTNBUMP(0)3 
STOPGSpeFAL,SE3 
PROINFO*TAKECLASTINFO)& LASTINFOL35!35%13)#PROAD*ADDRSF? 
Po+STOPENTRY«FALSE 
ENDS 
PJeO; LEVELYLEVEL+13 
IF STREAMTOG THEN STREAMWORDS; 
Te FLOLASS=SFMJCOLON THrN GO TO START13 
TF ELCLASS#LEFTPAREN THEN FLAG(007)3 
COMMENT: THE FOLLOWING 8 STATEMENTS FOOL THE SCANNER AND BLOCK,PUTTING 
FORMAL PARAMETER ENTRIES In THE ZERO ROW OF INFOS 
RRIeNEXTINFOS 
LASTINFOTeLASTINFOS LASTINFO*NEXTINFOe1L3 
PUTNBUMPCO)3 
PTOGeTRUES leytt3 
ENTRYCSECRET)3 
IF FWDTOG THEN 
BEGIN 
IF GTIt=TAKECMARK), (4038) # PJ THEN FLAGC48)3 % WRONG 
% NUMBER OF PARAMETERS, WE DON®T WANT TO CLOBBER INFO, 


END 
ELSE 
PUTCPUeMARK)? 
PePJ3 


IF FLCLASS#RTPAREN 
THEN FLAGC008)$ 
IF STEPI#SEMICOLON 
THEN FLAGCO09)S 
COMMENT MARK PARAMETERS VALUE IF THERE IS A VALUE PART3 
IF STEPISVALUEV 


THEN 
BEGIN 
no 
IF STEPT#SECRET 
THEN FLAGC 910) 
E,,SE 
BEGIN 
IF GeELBATCIJeADDRESS=0 OR G>PY 
THEN 
FLAG(O10)3 
GeTAKECELBATLII)3 
PUTCGR1C1084781]+ELBATCII) 
END 
UNTIL 
STEPI#COMMA3 


14310000 
14311000 
14312000 
14312100 
14312101 
14313000 
14314000 
14315000 
14316000 
14317000 
14348000 
14318500 
14319000 
14319500 
14320000 
14321000 
14322000 
14323000 
14324000 
14325000 
14326000 
14397000 
14328000 
14329000 
14330000 
14331000 
14332000 
14333000 
14333100 
14333200 
14333300 
14333400 
14333500 
14333600 
14334000 
14335000 
14336000 
14337000 
14338000 
14339000 
14340000 
14341000 
14342000 
14343000 
14344000 
14345000 
14346000 
14347000 
14348000 
14349000 
14350000 
14351000 
14352000 
14353000 
14354000 
14355000 
14356000 


NA AA H AAT AHA A HAHAHA TA A A IH Ht A HA SFA HH AA HA tH tC OS 


0104003640 
01044003733 
0104!003933 
01043004030 
0104:004431 
0104:004414 
0304:004532 
0104:004733 
0104:004933 
0104:004933 
0904:004933 
04043005123 
0404:0053%3 
01047005523 
01043005631 
0104:005933 
01043005933 
0104:00602:1 
010430062314 
01043006430 
0104:0065:2 
0104:0067292 
0104:0067:2 
0104006732 
0104:0068:0 
0104:0070:0 
0104:0070t1 
0104:007234 
0104%0073%3 
0104:007323 
0104:0074:0 
0104:007733 
0104:007733 
0104:007733 
0104:007733 
01041007912 
0104:0080:0 
0104:0080:0 
0104:0082:0 
01043008231 
0104:0084:0 
010430084:0 
01041008431 
0104:0085%t2 
0104:008533 
0104:0086:0 
0104:008614 
0104008733 
0104:0088:0 
01043008834 
0104:0091:2 
01048009133 
010430093:2 
0104:009434 
0104:0096:0 
0104:00963 4 
01042009634 


IF ELCLASS#SFEMICOLON 
THEN FLAGCO11) 
FLSFE STEPIT 

- END Fleyri3 

IF STRFAMTOG 


THEN 
BEGIN 
BUPePJS SPFCTOG+TRUEIGO TO STARTI 
END 
FLSE 
REGIN 
SPECTOG+TRUE3 
BUPe«O; 


IF ELCLASS#NECLARATORS 
THEN FLAGCO12) 
FND3 
STARTIPTOGeFALSESLASTINFO*LASTINFOTSNEXTINFO*TF FWDTOG THEN RR1 ELSE 
MARK+PJ+13 
STARTLtPINFOO*NEXTINFOS 
START2$ END 


IF SPreTOG OR STREAMTOG 
THEN 
40 TO STARTS 


. COMMENT TF SPECTOG 7S ON THEN THE BLOCK WILL PROCESS THE SPECIFICATION 


PART SIMILARY TO DECLARATIONS WITH A FEW NECESSARY VARIATIONS 


HF s 
BEGIn 
LABEL START*STOPS 
DFFINE TrSTLEV = LEVEL>2 #3 
IF STREANTOG 
THEN BFGIN 
1F TeESTLEY THEN JUMPCHKNX FLSE SEGMENTSTARTCTRUE)$PUeP3 
PTOG+FALSES3 
PUTCTAKECGITCPROINFO) )&LL28% 36312] °GITCPROINFO) 2? 
IF TESTLEV THEN BEGIN EMITOCS84)3 ENDS 
IF STEPI=BEGINV 
THEN 
BEGIN 
WHILE STFPI=DECLARATORS OR ELCLASSSLOCALV 
DO 
BEGIN 
IF ELBATCIIJ.ADDRESS=LABELY 
THEN 
BEGIN 


STOPDEF INE«STOPGSPeSTOPENTRY«TRUES 


DO BEGIN STOPDEFINE«TRUESSTEPITSENTRYCSTLABIDI SPUTNBUMP(O) END UNTIL 


: ELCLASS#COMMA$ STOpPGSP+STOPENTRY«FALSE 


END 
ELSE 
BEGIN 
l«I+13 
ENTRYCLOCLID) 
FND 
ENDS 


YF FUNCTOG THEN 


104 1§ 


14357000 
14358000 
14359000 
14360000 
14361000 
14362000 
14363000 
14364000 
14365000 
14366000 
14367000 
14368000 
14369000 
14370000 
14371000 
14372000 
14373000 
14374000 
14375000 
14376000 
117 LONG 
14377000 
14378000 
14379000 
14380000 
14381000 
14382000 
14383000 
14384000 


START OF SEGMENT 


14384100 
14385000 
14386000 
14387000 
14388000 
14388100 
14389000 
14393000 
14394000 
14395000 
14396000 
14397000 
14398000 
14399000 
14400000 


-$4401000 


14402000 
14403000 
14404000 
14405000 
14406000 
14407000 
14408000 
14409000 
14410000 
14411000 
14441100 


SAHA AH AHA HAHAHAHA TT A BAH HHA es HAA A BH HH tA A 


0104:009830 
01042009834 
01043009933 


0104:0100%1 | 


01048010281 
01042010234 
0104%010231 
010430103:2 
04043010532 
0104:040532 
01043010532 
01043010533 


01042010641 ~. 


01043010772 
01043010733 
01042010831 
0104%01093:2 
01043011332 
O1048011434 
01043011533 


NEXT SEG 98 
00985012830. 


0098:0128:0 
00983012831 
00982012923 
00982042983 
0098:042933 
00961013040 
0098:0130:0 


eR 105 


0105:0000:0 
01053000030 
01053000030 


010580000217. 


01052000434 
0105800052 
01053000831 
0105:0010%1 
0105:004132 
01052001113 
010530012320 
0105:30014:0 
01053001533 
01053001533 
01052001681 
0105001732 
0105004783 
01405!0019%2 
01052002231 
010530024:t0 
01053002512 
010538002532 
01053002533 
0105:0027:2 
01053002732 
01051002733 
040510028:0 


PUTCCZ*TAKECPROINFO)I&LOCLIDL2t4137] & 14411200 
CPUtP+REALCTESTLEV) 9016237311] »PROINFO); 14411300 

COMPOQUNDTAIL 14412000 

END 14413000 

ELSE 14414000 

REGIN 14415000 
IF FUNCTOG THEN 14415100 
PUTCC ZeTAKECPROINFO0))8 LOCLID(C2:41:7]2 14415200 
CPU42¢REALCTESTLEVIIC16837311]2PROINFO); 14415300 

STREAMSTMT? 14415400 
ENDS 14415500 
COMMENT THE FOLLOWING BLOCK CONSTITUTES THE STREAM PROCEDURE PURGE? 14416000 
BEGIN 14417000 
REAL NLOC»NLAB3 14418000 
START OF SEGMENT 

DEFINE SESR18#*SED=6#49TRWF5#;5 ; 14419000 
DFFINE LOcH(36:12]4sLASTGTa=l24312)#; 14420000 
Je LASTING O?; 14421000 
NLOceNLapeO; 14422000 

no 14423000 
BEGIN 14424000 
IF CGT1teTAKEC J) ).CLASS=L0CL10 THEN 14425000 
BEGIN 14426000 

IF BOOLEANCGT1.«FORMAL) THEN 14427000 
BEGIN 14428000 

IF GT1<0 THEN 14429000 
PUTCTAKECGT2¢MARK+P9GT1 ¢ADDRESS#1&FILEIDE 224127) 14430000 

°GT2)3 14431000 

END 14432000 

ELSE NLOC*NLOC#13 14433000 

END 14434000 

ELSE 14435000 
BEGIN 14436000 

IF GTteADDRESS#0 THEN NLABeNLABS13 14437000 
IFCGT3*€TAKECGIT¢J)2)2.LASTGT#O AND GT3,LO¢C =0 THEN 14436000 
BEGIN 14439000 

MOVE C9*INFOLO*sJI],ACCUMLO])3 14440000 

ge ACCUMELI; 14441000 
FLAG(C267)3 14442000 
FRRORTOG*TRUES 14443000 

END; 14444000 

ENDS 14445000 
XREEOUMPCJ)3 % DUMP yRer INFO %110= 14445100 
Get GT2eTAKECU+12),PURPTS 14446000 
IF GT1,0238] # STLABIDx2+1 THEN 14447000 
STACKHEADC CORGT9£L12°19%36] MOD 125] ¢TAKECJ) LINKS 14448000 

END UNTIL ueuRGsts 14449000 
14450000 

IF TESTLEV THEN BEGIN EMITCC1*0)3 EMITOCBFW) END 14451000 
ELSE EMITCO)3 14451100 
PUTCTAKECMARKIRNLOCI1L942°6)R&L F162 36: 12I8PL402 4028] »MARK)3 14451200 
IF FUNGTOG THEN 14452000 
PuTCZ» PROINFO); . 14457000 
STREAMWORDS3 14460000 
STRFEFAMTOGeFALSE:? 14461000 
TF NOT TESTLEY THEN BEGIN PROGNESCBLDR¢PROANDs TRUE sCL4+3IDIV 4s CHAR) 14461100 
SFGMENTCCL4+32DIV 4sPROINFO, ADDRESS) 3 14461200 


HAHAHA DHA HAHAHA HOA TAA AHA HAHAHA A TAS A ts kk ot FA Tt A A HH 


0105:0026:1 
01055003133 
0105:003431 
0105:003431 
0105:0035!2 
0105%003512 
0105:0035:3 
0105:003533 
0105:0038!1 
01053004133 
01053004230 
01053004230 
0105#0042!0 
0105!0042:0 


ARR «106 


0106:0000:0 
01061000030 
0106:0000:0 
01063000031 
01063000230 
01067000230 
0106000230 
0106*0004:0 
0106'0004!1 
0106!000533 
0106#0006:0 
0106:0006!1 


0106:001133 . 


0106:0012:0 
0106:0012:0 
0106:0014:0 
0106:0044:0 
01063004430 
0106300443 1 
01062004733 
01062009133 
010620022!0 
0106:002431 
01063002533 


01063002631. 


010673002732 
0106:0027:2 
0106:0027:2 
010630099%2 
01063003230 
010610034:0 
010610038214 
01062004034 
01067004031 
01062004333 
01406:0045%2 


0106!004933.. 


01063004983 
0106:005132 
01063005183 
01063005281 
01063005630 


C) 


Cy Ae «ee He OR, (a Re 


~~ 


> 


C} 


O 


END $ 


ENDS 


RIGHTCL)? 


IF LISTER AND FORMATQOG THEN SPACEITDOWN; 


«03 


LASTINFO*LASTINFOT:NEXTINFOSMARK4+P+13 


FNn 


FLSF 


RFGIN 


bees 7 Ir STEPI=SFORWARDV 


THE 
BE 


EN 

sy: epheaall! ~ ELS 
RE 

PROAN 


ied pe ted ce: TSUBLEVEL*+SUBLEVEL$ SURLEVFLELEVEL $STACKCTRO*STACKCTR3 
TF MOnre=41 THEN FRSTLEVELeLEVELSSTACKCTRe5134REALCFUNCTOG)3 
IF ELCLASS = 


Sein lee Leh BEGIN 


FLAGCO52)3 


$ 


STOP: 


N 
GIN 


XREFITCPROINFO*2O*FORWARDREF ) 3 


PUTC@TAKECG*PROINFOsLINK+1)°G)3 


PURGECPINFOO)$ 


STEPIT 

) 

F 

GIN 
O+PROAD} 


BEGINV THEN 


CALLINFO*CCALLXeCALLX+4 9413 


NESTCTR*STACKCTR3 


BLOCKC TRUE) 


3 PURGECPINFOO); 
tp NestOG THFN 


RFGIN GTLeTAKECPROINFO),ADDRFESSS3 


NESTPRIPGT4 Je O8PROINF OL 3523521 318CALLINFOL 2223534373 
CALLECALLINGOtL eC TAKECGITCPROINFO) )+4NESTCTR#544)8& 


END; 
LeO3 


GO TO STOP END: 


BEGIN 


CALLX( 223531313 


RELADeEL 


TMT} 


% WE NEED 
% THE FORWARD 


HTTEQAPCFALSEs+RELADsPINFOOsPROAD)$ 


ENN> 


SURBLEVEL«TSUBLEVELS 
STACKCTReSTACKCTRO3 
IF LISTER AND FORMATOG THEN SPACEITDOWNS3 


FN 

SehnasR eee, ott ae EN 
PROIN 

Tr JU 

TH 


STARTS ENDS 


D3 

Ne 

FO+LO3 
MPCTRELEVEL 
EN 


JUMPCTReLEVEL=13 


LEVFELeLEVEL TLS 


MODE+MODE=13 


MAXSTACK*MAXSTACKQ 


THIS SQ WE CAN FIND 


DECL» DURING XREF 


14461300 
14461400 
14461500 
14462000 


T 
T 
T 
T 


67 LONGs 


14463000 
14464000 
14465000 
14466000 
14467000 
14468000 
14469000 
14449100 
14469101 
14470000 
14471000 
14472000 
14473000 
14474000 
14475000 
14476000 
14477000 
14478000 
14479000 
14481000 
14481100 
14491200 
14452000 
14483000 
14483100 
14483200 
14483300 
14483400 
14483500 
14483600 
14483700 
14484000 
14485000 
14486000 
14487000 
14488000 
14489000 
14490000 
14491000 
14492000 
14493000 
14493500 
14494000 
14495000 
14496000 
14497000 
14498000 
14499000 
14500000 
14501000 
14502000 
14503000 


ARAMA TH AH AHF HAHAH THA HARA AHA FAT IH HAHAH HAA HAO DH ATI 


010630058!14- 


0106300600 
0106!0060:0 
0106:0066:0 


NEXT SEG 105 


0105:0043:%2 
01051004583 
01053004533 
01405%0045:3 
0105:004610 
0105'004634 
01058004722 


0105004733 - 


01053005030 
01052005080 
0105:0053:2 
01053005430 
0105:0054:0 
01057005431 
0105:005431 
0105:0055:2 
0105:005533 
010510058:0 
01051006132 
010530062:0 
0105:0062!1 
0105:00643:1 
0105:0065: 3 
0105:0065:3 
0105:0067:2 
01058006733 
07,05:0070:0 
014052007323 
01051!0079%2 
0105300803 4 
01053008031 
01053008133 
0105:0082:0 
0105%0082:0 
0105'0082?1 
010543008333 
01053008430 
01053008533 
01053008533 
0105:0086:0 
0105:0086:1 
0105:0087:3 
01053009332 
0105%0093%2 
01053009312 
010550094380 
01053009410 
01405:009434 
0105:%0096%4 
01405:30097:3 
01052009932 
01053009933 


oN 
e? 


( 


iS) 


) 


Oh a yo ae 


my 
'S: 
— 


Ci 


O 


oo 


Ce 2 


: “G4 3 


() 


GO TO START} 
CALLSTATEMENT!? FOULED « L3 
JUMPCHKX3 te SOP THEN BEGIN ZeSTACKCTR= sans Z-7*420 
DO EMITL¢O) END$ 
IF SPECTOG THEN BEGIN 
FLAG(12)#GO TO HF 
END} 
BEGINCTR « BEGINCTR®@13 
IF FERRORTOG 
THEN COMPOUNDTAIL 
ELSE 
BFGIN 
STMT} 
TF ELCLASS+TABLECT+1)"DECLARATORS 
THEN 
BEGIN 
ELBATFI1.CLASS+SEMICOLONS 
BEGINCTReBEGINCTR#13 
GO TO START 
END 
FLSE 
COMPOUNDTAIL 
ENN? 
FUNCTOGeFUNCTOGO3 
TF SOP THEN HTTEOAPCFALSFeFIRSTX+sNINFOOsBLKAD) 
FLSE BEGIN TF NESTOG THEN SORTNEST$ PURGECNINFOO)3 
SEGMENTCCL+32D1V 4-PROADQ)} 
IF LEVELAt THEN RIGHTCL)3 
IF |.EVFL « LEVEL#1 = 0 THEN CONSTANTCLEANS 


AJUMP eA JUMPO3 
FIRSTX«FIRSTXO3 


SAVELeSAVELO? 
STACKCTReSTACKCTROS 


END BLOCK3 


COMMENT THIS SECTION CONTAINS THE VARIABLE ROUTINE AND ITS SIDEKICKS3 


105 1S 


98 IS 


101 LONGs 


14504000 
14505000 
14506000 
14506500 
14507000 
14508000 
14509000 
14510000 
14511000 
14512000 
14513000 
14514000 
14515000 
14576000 
14517000 
145748000 
14519000 
14520000 
14521000 
14522000 
14523000 
14524000 
14525000 
14599000 
14600000 
44601000 
14602000 
14603000 
14604000 
14605000 
14606000 
14607000 
14608000 
14609000 
14610000 
14611000 
14612000 
14633000 


176 LONG 


15000000 
15001000 
15002000 
15003000 
15004000 
15005000 
15006000 
15007000 
15008000 
15009000 
15012000 
15043000 
15044000 
15015000 
15016000 
15017000 
15018000 


ee ee ee ee ee ee ee re ee ee ee ee ee ee ere ee ee ee ee ee ee ee ee ee ee ee 


NEXT SEG 98 


009830131%2 
00983013133 


0098:0432%4.. 


00982013732 
0098#0139%3 
0098:0140t0 
0098:0141%3 
00981014133 
00982014224 
0098%014231 
00982014383 
0098:0444:0 
00981014424 
009820144532 
0098:044634 
00983044732 
0098:01447%3 
00982015020 
009820151483 
00988015240 
00982015230 
0098:0152:0 
0098:015231 
0098:0153!2 
0098:20453%3 
0098:0455%3 


00982015982 


0098:0161%2 
009830163%2 


00983016533. 


0096:0165:3 
0098:016634 
00983016634 
0098:0167#2 
0098:0168:0 
00983036834 
0098:046834 
0098:046871 
NEXT SEG 

0003%0628!4 
0003!0698%4 
0003:06283}4 
00033062631 
0003:0628!1 
0003:062B%4 
00037062824 
0003:06282 1 
0003:0628?4 
0003:0628%4 
0003:062831 


000350628314. 


00033062831 
0003:0628%4 


| 


0003:062831. 


0003:0626%4 
00033062834 


Cy: 8 


€) 


Or 8 =O © 


GC 


Ferns, lnc. 


O 


< Busines: 


wet, 


O 


CS 


} 


C)} 


Baie i ee 15019000 0003:0628%14 ~~ 
15020000 00033062831 
15024000 00033062834 
— ==> - 15022000 -0003!:062834 
15023000 0003:0628314 
15024000 00031062881 
a5 15025000 0003:06283 1 
15026000 0003062831 
15027000 0003!062831 
- -— - 15028000 0003:067831 
15029000 0003:0628i1 
15030000 000330628! 4 
pee aeee 15031000 00038062831 
15032000 0003!:062834 
15033000 0003:062834 
erst eek Matin 15034000 00033062834 
15035000 0003:0628%4 
15036000 00032062834 
Sie este 15037000 0003062834 
15038000 000320628214 
COMMENT THF FOLLOWING BLOCK HANDLES THF FOLLOWING CASES 145039000 000330628214 
ae ee Of S]MPLE VARTARLFS: 15040000 0003:062834 
1, Vo« EXP *WHERE V 7S FORMAL@CALL BY NAME, 15041000 0003!062834 
2, V « EXP 2ALL V EXCEPT FORMAL=NAME, 15042000 00032062834 
Nath hes 3, V,CS*L] «© EXP «WHERE V IS FORMAL#=CALL BY NAME, 45043000 00032067814 


4, V,CS*L] « EXP eALL V EXCEPT FORMAL#NAME, 15044000 00033062884 
5. V.CS*Ly »ALL Vy, 15045000 00033062834 
apie 6, V PALL Vo 15046000 0003:0628%4 
CODE EMITED FOR THE ABOVE CASES IS AS FOLLOWS! 15047000 00033062831 
1, VNeEXPeM*sXCHoe, 15048000 0003:062834 
eae Ts 48 2, EXPsM¥sVLet, 15049000 0003!062834 
3. VNeDUP+COC#EXPeTeMe*XCHee, 15050000 00032062824 
4, VVeEXPsToN¥e Vive, 15051000 0003:062631 
woe ee 5, ZEROL®VVeT , 15052000 0003:062821 
6, WV, 15053000 0003!:062834 
WHERE VN = DrSc V 15054000 0003:062844 
Aho EXP= ARYTH, OR BOOLEAN EXPRESSTONsAS REQUIRED, 15055000 00033062831 
Me = CALL ON MONITOR ROUTINEsIF REQUIRED, 15056000 00033062884 
VL = LITC V 15057000 00033062831 

ee VV = oPpc V 15058000 0003:062834 - 
«¢ = STORE tNSTRUCTIONCISDsISNeSND OR STD), 15059000 000320628314 
T = BIT TRANSFER CODECDIAsDIBeTRB), 15060000 0003062834 
pete eee ZEROL = LITC 15061000 0003:0628!4 
DUPsCOC,XCH = THE INSTRUCTJONS DUPsCOCrAND XCH, 15062000 00033062834 
OF COURSE» EXP WILL CAUSE RECURSTON*®IN GENERAL® AND THUS 15063000 000330628314 
Sette THE PARAMETER Pi AND THE LOCALS CAN NOT BE HANDLED IN A 15064000 0003:067814 
GLOBAL, FASHION, 15065000 0003062824 
THE PARAMETER Pq 1S USED TO TELL THE VARIABLE ROUTINE 15066000 0003!062831 
eee 4 NHO CALLED IT. SOME OF THE CODE GENERATION AND SOME 15067000 000320626834 
SYNTAX CHECKS DEPEND UPON A PARTICULAR VALUE OF P14. 15068000 0003062831 
! 15069000 0003:062881 
pie are Ses -PROCEDURE VARTABLECP1)# INTEGER P13 15070000 0003!0628%4 
REGIN 15071000 00033062884 
REAL TALL» COMMFNT ELBAT WORD FOR VARIABLES 150727000 0003:062834 


HAHA RAH BHAA A BH AA AH AT AHA FAH AHA HHH A HAG 


Cis “toe SE “le. coy 


C) 


G. “QP “Oo “@ 


a START OF SEGMENT ** eRe 107 
T1 » COMMENT 15ST INTEGER OF PARTIAL WORD SYNTAX; 45073000 T 0107:0000:0 
T2 » COMMENT 2ND JFNTEGER OF PARTIAL WORD SYNTAXS 15074000 T 0107:30000:0 


J 3 COMMENT SUBSCRIPT COUNTER ; 
REAL REMFMBFRSEQNO? & REMEMBERS SEQUENCE NUMBER OF VARIABLE #1108 
% ON LEFT HAND S1DE OF ASSIGNMENT SO WE 94140 


% CAN XREF IT CORRECTLY, %1108 

LABEL EXIT» NEXT» LASS? 1148 
DEFINE Sii4= 
FORMALNAME = £922) = ofr 114" 
LONGID = NAMETD#s Z114= 
PARTIALWORD = (TL # O)#s ¥1414= 
ERREXITTCNUM) = REGIN ERRONUM)3 GO TO EXITS END#S Z1ii49 
ROOLEFAN Z114= 
SPCLMON?e 4114" 
DUPYT & TRUF FF WE ARE DOING UPDATE TYPE ASSIGN™ #114 

4 MENT. Tee, T *= * + Loe %114-= 


TALLeELBATEIJ 3 
1F ELCLASS § #NTPROCID THEN 
BEGIN 
IF TALL.LINK #PROINFOsLINK THEN 
BEGIN ERRC291)3 GO TO FXIT END3 
COMMENT 214 VARTARLE"FUNCTION TDENTIFIER USED OUTSIDE OF ITS SCOPEF#3 
TALLe TALL &CELCLASS+#4)( 224127] & Si3CL623781173 


ENN 

FLSE CHECKERCTALL) 
RE MEMBERSEGNO t= CARDNUMBER3 41108 
Je TALL,CLASS $ INTID THEN % S]MPLE VAR OR FORMAL NAME ‘ 
BEGIN i114 
IF STEP # aASSIGNOP THEN Yi14= 
IF Pi = FL THEN ¥114= 
BEGIN Z1ii4= 
IF ELCLASS < AMPERSAND THEN ¥114= 
EMITNC TALL» ADDRESS) S114 
FLSE ¥114= 
EMITV¢TALL,ADDRESS);3 4114 
GO TO EXIT3 %114- 
END 114 
ELSE 41148 
IF ELCLASS = PERIOD THEN % PARTIAL WORD £114 
TF DOTSYNTAXCT1L*T2) THEN &% ERROR %¥114« 
GO TO EX]T 41148 
ELSE ZLi4 
STEPIT: %114= 
IF ELCLASS = aSSIQNOP THEN 2144s 
BEGIN Z114= 
STACKCT t= 13 Z1149 
IF PARTTALWORD THEN & MAKE SURE LEFT#*MOST %114= 
BEGIN ‘ ¥1i14= 
IF Pi # FS THEN & NOT LEFT=MOST ZLL4= 
ERREXIT¢201)3 ¥i14= 
XREFITCTALL»REMEMBERSEQNOsASSIGNREF )$ ¥114« 
END %114= 
ELSE %114« 
XMARKCASSIGNREF 23 *114= 


IF TABLFCT+1) = ASTRYISK THEN % MIGHT BE UPDATE 
IF cbuPrTi=¢TABLECI+2) 2 EQVOP AND TABLE (142) 
S$ MULOP) OR TABLE(I+2) = AMPERSAND) THEN 
STEPIT$ % STEP OVER ASTERISK %114= 
IF TALL.FORMALNAME THEN & FORMAL PARAMETER ¥1146 


15075000 
15075550 
15075551 
15075552 
15076000 
15076100 
15076110 
15076120 
15076130 
15976140 
15076200 
15076300 
15076400 
15076500 
15077000 
15078000 
15079000 
15080000 
15081000 
15082000 
15083000 
15984000 
15085000 
15085100 
15085200 
15085400 
15085600 
15085800 
15086000 
15086200 
15086400 
15086600 
15086800 
15087000 
15087200 
15087400 
15087600 
15087800 
15088000 
15088200 
15088400 
15088600 
15088800 
15089000 
15089200 
15089400 
15089600 
15089800 
15090600 
15090800 
15091000 
15091200 
15091400 
15091600 
15091800 
15092000 
15092200 


Oo VOrInrior Dans ooranrswnranoondVO HOO DSsYX’MA YO OD} ory TVA AAT aAKHSasAANI NA DPN NAN oA DBTIANNA 


01072000070 
01073000030 
0107:0000:0 


0107:00003.0.. 


01072000030 
0107%:0000:0 
0107:0000:0 
0107:000010 
01073000030 
0107:0000:0 
01073000030 
01072000030 
01072000030 
0107:000030 
01073000030 
01073000182 
010720001433 
01072000230 
01078000430 
01072000533 
04073000533 
010730009%2 
0107!:000932 
010730010:0 
010710044:2 
01073004230 
01073004234 
01073004333 
01072001582 
01073001583 
01072001630 
01073004733 
010770018:0 
041072001933 
01078002030 
0407:0020:0 
010730020:0 
0407:0001%3 
0407%002332 
01078002332 
0107:0023%2 
01072002480 
0107:30025:2 


01073002513 __ 


0107800260 
0107:002732 
0107:002733 
0107!:0028:30 
010730030:0 
01073003231 
01073003231 


01073003231 . 


01073003732 
01073003932 
01075004280 
01071004583 
0107:004684 


C4 


iS 


BEGIN %114= 
EMITN¢TALL.ADDRESS)3 %114= 
1F PARTIALWORD OR DUPIT THEN % NEED VALUE%114= 

BEGIN %114= 
EMITOCDUP)} %114= 
EmMiIToccoc); 4114 

END$ K114" 

END ¥114" 

ELSE % 1TS A SIMPLE VARTABLE ¥1i14= 
IF PARTIALWORD OR DUPIT THEN Zi14= 
EMITVCTALLeADDRESS)3 ¥114= 

IF PARTYIALWORD AND DUPIT THEN %114= 

BEGIN %114= 
FMITOCNUP): ¥1145 
EMITECOsT1*T2)3 %1149 

ENDs ¥i14= 

STACKCT t= REALCPARTIALWORD OR DUPIT)3 Z114™ 
STEPTT: %114" 
IF DUPIT THEN % ALREADY GOT FIRST PRIMARY %114@ 
SIMPARITH Z114= 
FLSE %114* 
AEXP3 %114= 
EMETDC4B@T29T1sT2)3 Z114" 
STACKCT t= 03 %114- 
GT1 t= 1F TALL.eCLASS = INTID THEN %114= 
1F Pt = FS THEN %1ii4e= 

ISp %¥114= 

ELSE %1146 

ISN ¥114= 

ELSE ¥114= 

IF P1 = FS THEN %114= 

STp %114= 

ELSE ¥114= 

SNp3 S114" 

IF TALL.FORMALNAME THEN Z114= 
BEGIN Z1i14- 


FMITOCXCH)$ & TO GET DESCRIPTOR ON TOP BL146 
TF TALLeADDRESS > 1023 THEN % SET VARIANTZ114= 


EMITOCPRTED: %114= 
EMITOCGTIDE %114" 

END Z1L14= 

ELSE %114= 
EMITPAIRCTALL,ADDRESS»GT1)3 %114 

END K114= 
FLSE % NOT ASSIGNMENT TO SIMPLE VARIABLE Y114= 
BEGIN 1146 
IF Pi # FP THEN % EXPECTED ASSTGNMENT 7114" 
ERREX1T¢202)3 ¥114= 
EMITICTALL»T1sT2)% % EMIT OP CALL AND PARTTALZ114= 
END} % WORD CODE Z114= 
END OF SIMPLE VARIABLES %114= 


ELSE 
IF TALLeCLASS#LABFLID THEN 
COMMENT THE FOLLOWING BLOCK HANDLES THESE CASES OF SUBSGRIPTED 


VARIABLES? 
1, VE*J »ROW NESTIGNATOR FOR SINGLE*DIMENSTON, 
2, VERe*] ®ROW DESIGNATOR FOR MULTI"DIMENSION, 


15092400 
15092600 
15092800 
15093000 
15093200 
15093400 
15093600 
15094800 
15095000 


15095400. 


15095600 
15095700 
15095800 
15095900 
15096000 
15096100 
15096400 
15096600 
15096800 
15097000 
15097200 
15097400 
15097600 
15097800 
15098000 
15098200 
15098400 
15098600 
15098800 
15099000 
15099200 
15099400 
15099600 
15099800 
15100000 
15100200 
15100400 
15100600 
15100800 
15101000 
15101200 
15101400 
15101600 
15101800 
15102000 
15102200 
15102400 
15102600 
15103400 
15103600 
15103800 
15128000 
15128100 
15129000 
15130000 
15131000 
15132000 
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010720048:0 
010730048314 
0107:004933 


01072005132-. 


0407:0051:3 
01073005220 
010720053802 
0107*005332 
01073005332 
01077005332 
0107:0054%14 
010730056314 
0107:005733 
01072005830 
01073005932 
0107:0060:0 
010710060:0 
01071006230 
0107:0062%4 
0107:006221 
0107200632 
01073006333 
01073006431 
010721006634 
0107:0067i2 
01407!006834 
01071006933 
0107%007034 
040730071422 
01072007132 
01077007133 
0107:0072%4 
010730073!2 
01073007333 
01073007434 
0107:007533 
0107:007630 
01072007732 
01073007810 
01071007983 
0107:008010 
01077008030 
01075008030 
01078008230 
01078008230 
0107:008230 
0107:008231 
0107008333 


0407:00853:2- 


010773008634 
0407:008634 
01073008634 
01072008631 
0107:008880 
010730088:0 
0407:!0088:0 
010730088:0 


fy. “3 


Or. 1). © 


C) 


O. Or © 


© 


V 
4A, V 
Vy 
V 


R] 
RJ 
Ry 


»ARRAY ELEMENTsNAME OR VALUE, 


efSitlL] sPARTTAL WORD DESIGNATOR» VALUF, 


“ *ASSTGNMENT TO ARRAY ELEMENT, 


rRI,CS3L) «© »ASSTGNMENT TO PARTIAL WORD»LEFT= “MOST, 


R 1S. A K@ORDER SUBSCRIPT LIST»1,Fe R= R1isRAreeerRK, 
IN THE CASE OF NO MONITORING ON V+ THE FOLLOWING CODF 
IS EMITTED FOR THE ABOVE CASES3 


1. 


26 


CASE #1 IS A SPECTAL CASE OF #2sNAMELYsSINGLE 
DIMENSTON, THE CODE EMITTED 1S3 
VLeLOD , 
EXECUTTON? PLACES ARRAY DESCRIPTER IN REG A, 
THIS CODE 18 BASIC TO THE SUBSCRIPTION PROCESS, 
EACH SUBSCRIPT GENERATES THE FOLLOWING SEQUENCE 
OF CODE: 
AEXPoL*,IF FIRST SUBSCRIPT THEN VN ELSE CDC 
»Loo, 
FOR A K*ORDER SUBSCRIPTION*K"1 SEQUENCE ARE 
PRODUCEDse THE AEXP IN EACH SEQUENCE REFERS TO 
THE CONE PRODUCED BY THE ARITHMETIC EXPRESSION 
PROCEDURE FOR THE ACTUAL SUBSCRIPT EXPRESSJONS»s 
C* REFERS TO THE CODE PRODUCED FOR SUBTRACTING 
NON@7ERO LOWER BOUNDS FROM THE SUBSCRIPT 
EXPRESSIONCL* YIELDS NO CODE FOR ZERO BOUNDS), 
EXECUTION? PLACES ARRAY ROW DESCRIPTOR IN REG A 
. THE SPECIFIC ROW pEPENDS UPON THE 
VALUES OF THE Kei SUBSCRIPTS, 


FOR THE REMAINING CASES, 


3+ 


4, 


2. 


6. 


SEQUFNCES oF CODE ARE EMITED AS IN CASE #92, 
HOWEVERe THE ACTUAL SEQUENCES ARE: 
ONE SFQUFNCE »# CAEXPeL*®)°+FOR THE 45ST SUBSCRIPT, 
K™1 SEQUENCES» CIF FIRST SUBSCRIPT THEN VN 
FLSE COCeLOD»sAEXP,L¥*)» FOR THE REMAINING 
SUBSCRIPTSeIF K>1, 
AT THIS POINT,» CASES #386 ARE DIFFERENTIATED 
AND ADDITION CODE+PARTICULAR TO EACH CASFsIS 
EMITTED, 
ADD THE SEQUENCES 
IF FYRST SUBSCRIPT THEN VV ELSE COC, 
EXECUTION? THE ARRAY ELEMENT IS PUT IN REG Ae 
ADD THE SEQUENCE: 
IF FYRST SUBSCRIPT THEN vv ELSE COCsZFROLs 
XCHeT, 
AND THF SEQUENCE? 
IF FIRST SUBSCRIPT THEN VN ELSE CDCrEXP» 
XCHee, 
ADD THF SEQUENCE? 
IF FIRST SUBSCRIPT THEN VN ELSE CDOCeDUPsLODe 
EXPsTs XCHee, 


EXPsTs,esZEROLsETC, HAVE SAME MEANINGS AS DEFINED IN 


SIMPLE VARTABLE BLOCK, ; 
BEGIN 

..JF STEP? # LFTBRKET THEN % ARRAY ITEM NOT FOLLOWED. BY 21149 
BEGIN % A SUBSCRYPT %114=- 
IF ELCLASS = PFRYOD THEN %114= 
IF DOTSYNTAX¢T4*7T2) THEN % ERROR JN PARTIAL WORD %114= 
GO TO EXIT %1146 
ELSE %114= 


15133000 
15134000 
15435000 
15136000 
15137000 
151386000 
15139000 
15140000 
15141000 
15142000 
15143000 
15144000 
15145000 
15146000 
15147000 
154148000 
15149000 
15150000 
15151000 
15152000 
15153000 
15154000 
157155000 
15156000 
15157000 
15158000 
15159000 
45160000 
15161000 
15162000 
15163000 
15164000 
15165000 
15166000 
15167000 
15168000 
15169000 
15170000 
15171000 
15172000 
15173000 
15174000 
15175000 
15176000 
15177000 
15178000 
15179000 
15180000 
15181000 
15182000 
15183000 
15183100 
15183200 
15183300 
15183400 
15183500 
15183600 


oe ete le Rei Iii te LeeLee 


010730088:0 
010710086:0 
0107:00886:0 
0107710088:0 
0107:0088:0 
01071008830 
0107:008830 
0197%0088:0 
01072008880 
0107:0088:0 
01073008830 
010730088:0 
01073008830 
04073008820 
01072008820 
010737008830 
01072008830 
0107:0088!0 
0107!0088:0 
0107:0088:0 
0107:0088:0 


0107%0088:0. 


010710088:0 
01073008830 
01071008830 
010730088:0 
010730088:0 
0107100880 
01073008830 
010770088:0 
01077008830 
01073008830 
040730088:0 
0107:0088:0 
01071008820 
0107:0088:0 
0107:0088:0 
01407'0088:0 
010710088t0 
01073008830 
0107:0088:0 
0107!'0088:0 
0107:0088:0 
01072008880 
010730088:0 
010720088:0 
01073008830 
0107%0088?0 


0107%0088:0 . 


010770088:0 
01073008820 
010730088? 4 
0107200893 3 
01078009030 


01073009122 .. 


01073009234 


01078009234 


Co ti THOR Re A es as 


C) 


Cr Tor eae XG) 


oe) 


OC 


O 


“COMMENT 
NEXT3 


COMMENT 


COMMENT 


COMMENT 


207 


203 


204 


205 


STeEPLT;3 
IF ELCLASS = ASSyGNOP THEN 


BEGIN 


IF PARTYALWORD THEN 
BEGIN 


ELSE 


ERREXITC209)5 


XREFIT¢CTALL»REMEMBERSEQNOsASSIGNREF )3 
END 


% ASSIGNMENT TO ID WITH NO PARTIAL WORD 


XMARKCASSIGNREF)3 
IF TABLECT+1) = ASTRISK THEN 


IF 


K114@ 
a114= 
%114= 
a114= 
a114= 


IF P1 # FS THEN & PARTIAL WORD NOT LEFT=MOST%114= 


2114= 
ait4a= 
Z114= 
Z1i4d= 
B114= 
eLiL4= 


CDUPIT ¢3 CTABLECT+2) 2 EQVOP AND TABLECI+2) 


$ MULOP) OR TABLEC1+2) = AMPERSAND) THEN 


STEPIT3 


Z114= 
%114-= 


IF PARTTALWORD OR DUPIT THEN % NEED VALUE ON STACK 
IF TALL eCLASS < JNTARRAYID THEN % NOT NAME ITEM 


EMITPATRCTALL,s ADDRESS e LOD) ¥114= 
ELSE Z114= 
EMITNCTALL»ADDRESS)$ %1i14= 
IF PARTIALWORD AND DUPIT THEN %114= 
BEGIN ¥114= 
EMITOCNUP); ¥114= 
EMIT?TCOsT1,72)3 ¥i14= 
END3 ¥t14s 
STACKCT t= STACKCT + REALCPARTIALWORD OR DUPIT)3 
STEPIT3 %114= 
IF DUPIT THEN % WE HANDLED FIRST PRIMARY %114= 
SIMPARITH £114 
ELSE ¥114= 
AEXP3 ¥114= 
EMITD¢(48=ToeT1»T2)3 %114= 
EMITPAIRCTALLeADDRESS»sIF P1 = FS THEN STD FLSE%114= 
SNDO)3 114" 
STACKCT = 03 ¥ A AND B ARE EMPTY 21148 
FND ¥114= 
ELSE % NOT ASSYGNMFNT x114= 
EMITICTALLs,T1+T2)3 Zii4= 
GO TO EXIT %114= 
END OF ASSIGNMENT TO NON S{MPLE NON SUBSCRIPTED 1146 
VARIABLES %114= 

Jo O}3 

STACKCT « 03 

VARTABLE*MISSING LEFTBRACKET ON SUBSCRIPTEN VARIABLE ¥*3 

IF STEPY FACTOP THEN 

BEGIN 
IF J#i# TALLeINCR THEN 
BEGIN ERR(203)3G0 EXIT END? 

VARIABLE= THE NUMBER OF SUBSCRIPTS USED IN A ROW * 
ROW DES|GNATER DOES NOT MATCH THE ARRAY * 
DECLARATION, *; 
IF STePy # RTBRKET THEN 

BEGIN ERRC?204)3GO EXIT ENDS 

VARIABLE@ COMPILER EXPECTS A ) IN A ROW DESIGNATER *} 

VARTABLE™ A ROW DESIGNATER APPEARS OUTSINE OF A FILL * 
STATEMENT OR ACTUAL PARAMETER LIST. x} 


15483700 
15183800 
15183900 
15184000 
15184100 
15184200 
15184300 
15184400 
15184500 
15184600 
15184700 
15184750 


15184800. 


15184850 
15185000 
15185100 
135185200 
15185300 
15185400 
15185500 
15185600 
15185700 
15185800 
15185900 
15186000 
15186100 
15186200 
15186300 
15186400 
15186500 
15186600 
15186700 
15186800 
15186900 
15187000 
15187100 
15187200 
15187300 
15187400 
15187500 
15187600 
15234000 
15234500 
15235000 
15253000 
15254000 
15255000 
152756000 
15257000 
15258000 
15259000 
15260000 
15261000 
15262000 
15263000 
15264000 
15265000 
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01407:009234 
01073009333 
01072009434 


01072009582 


01078009533 
041078009630 
010770097382 
01072009884 
01078040482 
01072010182 
01073010182 
01072040630 
0107:010733 
01072011031 
010730444314 
01077011533 
010790146381 
01072044834 
0107203120:0 
01078012034 
01078012230 
01072012333 
0107%012430 
0107%012431 
04072042610 
01078012670 
01071012830 
01072012821 
0107:0129%2 
0107%0129%3 
010730130:0 
01072043182 
0107:013231 
010730435383 
0107'0136:0 
0107301372 
01073013782 
010720137%2 
01072013831 
01072043982 
01071013922 
01073013922 
01073014030 
01078014031 
01072014034 
01072014220 
01073014231 
04072014430 
01074014630 
0107014620 
010720146t0 
01073014630 
01078014782 
0107:0148t4 
01073014834 
01078014834 
01072014884 


( QO 


C} 


Cl Ak Ae i) 


C) 


2) C) C) 


(1) C) OC) C) C) O 


cy 


O 


r 


Ce 4) 3G 6 


OQ 


LASS? 


COMMENT 
IF og 


COMMENT 


COMMENT 


IF J=0 THEN 
EMITPAIRCTALL.ADDRESS»LOD)3 
STEPIT 
GO TO EXx]T3 
END OF ROW DESIGNATOR PORTION 3 
IF ELCLASS=sLITNO AND ELBATr1].ADDRESS=0 AND TABLECI+1)=RTBRKET 
AND TALL.CLASS2NAMEID THEN 
BEGIN 
Tele%3 
IF STEPISASSIGNOP THEN BEGIN 
tf T4#0 THEN EMITVCTALL,ADDRESS)3 
STEPTTS AEXPS FMITDC48=T2,7T1,72)3 
EMITTNCTALL.ADDRESS)3 
EMITOCIF TALL»CLASS#NAMEJD THEN 
IF Pi2FS THEN 18D ELSE ISN ELSE 
IF PisFS THEN STD ELSE SND)3 
STACKCT « 03 
GO To EXIT END 
ELSE 
IF ELCLASS = PERIOD THEN BEGIN 
IF DOTSYNTAX(T1*°1T2) THEN GO TO EXITS 
IF STEP? = ASSIGNOP THEN IF PisFS THEN GO TO LASS 
FLSE BEGIN ERRC209)3 GO EXIT END 
END3 
IF PisFS THEN BFGtN ERR(210)3 GO FXIT END 


EMITICIF PiSFL THEN TALL ELSE TALL&REALID£E2°4187),71072)3 
GO TO EXIT$ 


END3 
AEXP3 
STACKCT « 13 
Joe J + 43 
IF FELCLASS = COMMA THEN 
BEGIN 
ek dk ok MONITOR FUNCTION M4 GOES HERE 3 


= 1 THEN EMITVCTALL.ADDRESS) ELSE FMITOCCOC)3 


GO 10 NEXT$ 
FND OF SUBSCRIPT COMMA HANDLER. 3 
IF ELCLASS # RTBRKET THEN BEGIN FRR(206)3GO EXIT END; 
206 VARIABLE= MISSING RIGHT BRACKET ON SUBSCRIPTED VARIABLE*? 
GTi«}F TALL»CLASS2NAMEIO THEN 1 ELSE TALL.INCR3 


IF J#GT1 THEN 
BEGIN FRR(208)3G0 TO EXIT END3 
208 VARIABLE= NUMBER OF SUBSCRIPTS DOES NOT MATCH WITH * 
ARRAY DECLARATION, *} 
If STFPY = PERIOD THEN % PARTIAL WORD %114« 
IF DOTSYNTAX(T1,72) THEN % ERROR %144= 
GO TO EXT ¥114= 
ELSE. %114= 
STEPITS %1149 
IF ELCLASS = ASSIGNOP THEN % ASSIGNMENT To SUBSCRIPTED 
BEGIN % VARIABLE ¥114= 
IF PARTIALWORD THEN %114= 
IF Pl # FS THEN £114= 
ERREXIT¢(209)$ % PARTIALWORD NOT LEFT*@MOST 114 


15266000 
15267000 
15274000 
15275000 
15276000 
15276010 
15276020 
15276030 
15276040 
15276050 
15276060 
15276070 
15276080 
15276090 
15276100 
15276110 
15276115 
15276120 
15276130 
15276140 
15276150 
15276160 
15276170 
15276180 
15276190 
15276200 
15276210 
15276220 
15276230 
15276240 
15277000 
15278000 
15280000 
15287000 
15288000 
15789000 
15290000 
15291000 
15292000 
15293000 
15294000 
15295000 
15295100 
15296000 
15297000 
15298000 
15799000 
15300000 
15300100 
15300200 
15300300 
15300400 
15300500 
15300600 
15300700 
15300800 
15300900 
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01073014834 
010720144933 
01073015133 
0407:301452:0 
04073045231 
01073015224 
01073035630 
0107%015834 
0107!0159%2 
01075016020 
01073016433 
010730164!4 
010720467%2 
01078016874 
01072017030 
04072017322 
01072017583 
01073017631 
0107:0177:2 
0107301772 
01073017884 
01073018034 
010790182314 
01073018431 
01075018421 
01078018732 
01073048732 
01073019132 
01073049132 
041078019123 


0107:019133. 


01073019220 
040728019332 
010730194380 
010730149532 
01073019533 
01071019533 
014078019982 
0107%0199%2 
010723019933 
010750199383 
0107'0202:0 


01073020230. 


01973020630 
01073020624 
010730208%14 
0107:02083: 4 
0407:020834 
04072020983 
0107:302141%2 
010730211:2 
014078024172 
01073021220 
01072021332 
01071021323 
01073024410 
01072021533 


Cp. or So > ee OE 


> As Oe 1-2 2) 


C) 


XREFITCTALL,REMEMBERSEQNO,ASSIGNREF)3 %114° 
IF J = 1 THEN & SINGLE@"DIMENSIONED %114= 
EMITNCTALL.ADDRESS) %114* 
ELSE %1146 
EMITOCCDC)3 ; ¥114¢ 
IF TALLeCLASS 2 LONGIO THEN % EXPLICIT INDEX OP 21448 
EMITOCINX)3 % REQUIRED %114= 
IF Pi = FR THEN % CALLED FROM FOR STATEMENT ¥114= 
GO TO EXIT3 %114= 
IF TABLECI+1) = ASTRISK THEN Z144- 


IF CDUPITS=cCTABLECI+2) 2 EQVOP AND TABLE CI4+2) 41148 
€ MULOP) OR TABLECI +2) = AMPERSAND) THEN Z114= 


STEPIT3 1148 

TF PARTIALWORD OR DUPIT THEN % NEED VALUE ON STACK 
BEGIN 7114= 
EMITOCDUP)$ Z1i14= 
EMITOCLOD)3 Z114= 
END} ¥114= 
IF PARTEALWORD AND DUPIT THEN 114 
BEGIN %1146 
EMITOCDUP)3 ¥114= 
EMIT7CO,T19T2)3 ¥114= 
END3 ¥114= 
STEPIT3 ¥114= 
TF DUPIT THEN Bi14- 
SIMPARYTH ¥114= 
ELSE X1148 
AEXP?3 a114- 
FMITOC48"T2,7T4T2)3 %114= 
EMITOCXCH)3 x114= 
IF TALL.ADDRESS > 1023 THEN ¥114= 
EMITOCPRTF)3 e114 
EMITOCIF TALL,CLASS MOD 2? = INTARRAYID MOD 2 THENZ114= 
IF Pi = FS THEN ISD FLSE ISN Z114= 
ELSE 1F Pl = FS THEN STN ELSE SND)$ 114 
STACKCT t= 0% 4% A & B ARE EMPTY %114= 
Pi - 03 ¥114= 
END OF ASS1GNMENT TO SUBSCRIPTED VARIABLE %114= 
ELSE Z114= 
BEGIN % HANDLING OF NO ASSIGNMENT CASE Y1146 
SPCLMON t= P1 = FP OR PARTIALWORD OR ELCLASS 2 e114 
AMPERSAND? ¥114= 
IF J = 4 THEN % SINGLE DIMENSTONED ¥114= 
IF TALL.CLASS 2 LONGID THEN % NAME ITEM ¥114= 
BEGIN %114= 
EMI TN¢TALL,ADDRESS);} %1145 
EMrTOCINX)3 ¥114= 
IF SPcCLMON THEN ¥i14= 
EMITOCLOD)3 Z114= 
END e114" 
ELSE % REFERENCE TO SINGLE DIMENSIONED ARRAY %114- 
IF SPCLMON THEN ¥144« 
EMITV¢TALL. ADDRESS) %144= 
ELSE %114- 
EMTTN¢ TALL, ADDRESS) e114 
ELSE % MULTI@DIMENSIONED CASE %1146 
EMITOCIF SPCLMON THEN COC FLSE CDC)}3 Y114= 


15301000 
15301100 
15301200 
15301300 
15301400 
15301500 
15301600 
15301700 
15301800 
15301900 
15302000 
15302100 
15302200 
15302300 
15302400 
15302500 
15302600 
15302700 
15302800 
15302900 
15303000 
15303100 
15303200 
15303300 
15303400 
15303500 
15303600 
15303700 
15303800 
15303900 
15304000 
15304100 
15304200 
15304300 
15304400 
15304500 
15304600 
15304700 
15304800 
15304900 
15305000 
15305100 
15305200 
15305300 
15305400 
15305500 
15305600 
15305700 
15305800 
15305900 
15306000 
15306100 
15306200 
15306300 
15306400 
15306500 
15306600 
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0407:0247:2 
01072024923 
04072022034 
0107:0222:0 
01073022230 
0107%022333 
01073020484 
010730226:10 
0107:02262) 
0107:%022732 
01073022932 
010730232:0 
0107:023533 
01078023631 
01078023830 
01073023824 
0107%0239%2 
01072024030 
0107:0240:0 
01073024132 
01078024133 
01073024234 
01073024333 
01078024333 
01071024480 
01073024434 
01072024532 
01072024533 
0107:0246:4 
0107:0248:30 
01073024922 
0107:!0250:0 
0107:0251:3 
0107%:0254:0 
01073025631 
01073025933 
0107!0260%4 
0107:026133 
0107:!0261:3 
01073026133 
0107%0262:0 
01073026420 
01078026532 
010730266:0 
01073026733 
0107%0268!0 
01073026933 
01073027030 
0107:027024 
01073027133 
0107027133 
0107:02971%t3 
01073027234 
01078027410 
0107:0274:0 
01073027533 
010730276320 


CS 


ir oe, ee 


C} 


COMMENT FIXC EMITS 


IF P1 = FS THEN % EXPECTED AN ASSIGNMENT ¥114= 15306700 Cc 01073027831 
ERREXITC210)3 ¥114" 15306800 ¢ 014073027933 
STACKCT t= 143 % BECAUSE REGISTERS ARE NON@EMPTY #114 15306900 c 0107:0281%2 
TF PARTIALWORD THEN 1146. 15307000 P 0107:0282:0 
BEGIN %114= 15307400 c 0407!0282%4 
EMIT{CO,TisT2)3 41146 15307200 c 010730283!2 
Py t= 03 %114= 15307300 c 0O407:0284t4 
END3 %1146 15307400 c 01073028533 
END OF NO a~SS;rGNMENT CASE ¥114= 15307500 C 01073028533 
END OF SUBSCRIPTED VARIABLES 15376000 T 041072028583 
FLSE 15376100 T 01073028533 
BEGIN COMMENT LABFLID3 15376200 T 0107:0285:3 
TrteTAKECT2¢=2=GI1TCTALL) 23 15376300 T 04107!0286:0 . 
PUT(L»T2)3 15376400 T 04107:0288:0 
Ip Ty=0 THEN TiseL3 15376500 T 0107:0289%2 
IF ¢(T1eL"T1) DIV 4 > 427 THEN BEGIN T1eO3FLAGC50)3END$ 15376600 T 0107!0291%2 
EMITCT1x443)3 15376700 T 04072029533 
STEPIT3 15376800 T 01073029732 
END OF LABELID3 15376900 T 0107:029733 
: END OF THE VARIABLE ROUTINES 15377000 T 0107:0297%3 
107 1S 302 LONGs NEXT SEG 
COMMENT THIS SECTION GENERATES CODE FOR STREAM PROCEDURES} 16000000 T 0003:062834 
NO LABEL DECS UPON APPEARANCE OF LABFL 3 16000050 T 000330628314 
PROCEDURE NECLARELABEL } 16000100 T 00033062834 
BEGIN 16000200 T 000323062834 
KLASSF ¢ STLABID: 16000300 T 0003:0628%4 
VONF « FORMALF « FALSE? 16000400 T 0003:0629%3 
ADDRSF « 03 16000500 T 0003!0631:!2 
MAKEUPACCUM? E3 PUTNBUMPCO)3 16000600 T 00033063133 
ELBATCI] «© ACCUMLOI& LASTINFOL 3523521333 16000700 T 0003!0633!3 
END3 16000800 T 000330636!0 
PROCEDURE STREAMSTMT 3 16001000 T 00031063630 
REGIN 16002000 T 0003:0636:0 
DEFINE LFETPAREN=LEFTPAREN#, LOCH=L36212)4# +LASTGT=L24:12)%, 16003000 T 00033063630 
START OF SEGMENT *xeeeeeHRe = 108 
LOCFLD=36!36%12#8e),,GTFLD=24% ons 1 o#3 16004000 T 0106#0000%0 
DEFINE LEVELSLVL#,ADNOP=ADOP#? 16005000 T 01408%0000:0 
16006000 T 0108!0000%0 
JFW = 39%» COMMENT 7.56561 JUMP FORWARD UNCONDITIONAL 3 16007000 T 0108:0000:0 
RCA = 40#» COMMENT 7080706 RECALL CONTROL ADDRESS ; 16008000 T 0108:0000!0 
JRV = 47#» COMMENT 7.5652 JUMP REVERSE UNCONDITIONAL 3 16009000 T 0108!0000:0 
CRF = 354+ COMMENT 7,5,419.66 CALL REPEAT FIELD ; 16010000 T 0108:0000:0 
BNS = 42%» COMMENT 7050505 BEGIN LOOP 3 16011000 T 0108:0000:0 
NOP = t#» COMMENT ; 16012000 T 0408!0000:0 
ENS = 4t#», COMMENT 745e5.6 END LOOP } 16013000 T 0108:0000:0 
aystole dig ciate gel Ma hts : TAN = 304» COMMENT 7.50307 TEST FOR ALPHAMERIC ; 16014000 T 01083000030 
RIT = 31#5 COMMENT 745e3,8 TEST BIT } 16015000 T 0108:0000:0 
Jrpc = 37#, COMMENT 7,.5.5,3 JUMP FORWARD CONDITIONAL ; 16016000 T 01083000030 
SFO = O6#%s COMMENT 7,547.8 SET MESTINATION ADDRESS ; 16017000 T 0108:0000:t0 
RSA = 43#.s. COMMENT 7,567,4 RECALL SOURCE ADDRESS 3 16018000 T 0408:000030 
TRP = 604». COMMENT 7.5.2.2 TRANSFER PROGRAM CHARACTERS 3 16019000 T 010820000:0 
eSS = 3%» COMMENT 7,5.6,.6 SKIP SOURCE pqT ; 16020000 T 01408!0000:0 
BS) = 2%, COMMENT 7.50645 SKIP DESTINATION BITS ; 16021000 T 0408!0000t0 
SFC = 34h» COMMENT 7,5510,1 SET COUNT H 16022000 T 0108:0000:0 
: JNS = 3843 COMMENT 7,5,5,7 JUMP OUT LOOP ; 16023000 T 0108:0000:0 
PROCEDURE ADJUSTS 3 16023100 T 01083000020 
BASICLY FORWARD JUMPS, HOWEVER IN THE CASE 16024000 T 01083000030 
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OF INSTRUCTIONS INTERPTED AS JUMPS BECAUSE OF A CRF ON 
A VALUE = 0 AND THE JUMP 2 64 SYLLABLES A JFW 4 AND 

A RCA L CL IS STACK ADDRESS OF A PSEUDO LABEL WHICH 
-MUST ALSO BE MANUFACTURED) IS EMITTED, 3} 


PROCEDURE FIXC¢CS)3; VALUE S3 REAL S3 


BFGIN 
REAL SAVL»DeF3 


IF De CSAVLeL) = ¢(LeS)*1 $ 63 THEN EMITCCD*GETCS)) 
FLSE FLAGC7O0)$ 
LeSAVL 3 
FND FrXxc 3} 


COMMENT EMITJUMP 73S CALLED BY GOTOS AND JUMPCHAIN, 
THIS ROUTINE WILL EMIT A JUMP IF THE DISTANCE IS <§ 63 
SYLLABLES * OTHERWISE» IT GETS A PRT CELL AND STUFFS THE 
STACK ADDRESS INTO THe LABEL ENTRY IN INFO AND EMJTS AN 
RCA ON THIS STACK CELL. AT EXECUTION TIME ACTUAL PARAPART 
INSURES US THAT THIS CELL WILL CONATIN A LABEL DESCRIPTOR 
POINTING TO OUR LABEL IN QUESTION, 3} 


PROCEDURE EMITYUMP( E23 VALUE EF REAL ES 


BEGIN 


REAL, ADDR} 

1F ABS¢ 

Ne CTeTAKECGITCE)), LOCI=L"1)264 THEN 

FLAG(700) 

ELSE EMITCCDeIF D <0 THEN JRV ELSE JFW)3 

END EMIT JUMP? 
COMMENT WHEN JUMPCHAIN YS CALLED THERE IS A LINKEDLIST IN THE CODE 
ARRAY WHERE JFWS MUST BE PLACED, THE JST LINK IS POINTED 
TO BY THE LOC FIELD OF EACH LABEL ENTRY IN INFO, THE LAST 
LINK 1S = 4096, ; 


PROCEDURE JUMPCHAING F)% VALUE EF REAL EF 


BEGUN ; 
REAL SAVL »LINK# 


SAVL « L3 ; 
L «© TAKECGITCE)),LASTGT 3 
WHILE L# 4095 po 
BEGIN 
LtNK « GETCL)3 
EMITJUMPC E93 
Lo « LINK 
END3 
LeSAVL3 
FND JUMPCHAIN 3 


COMMENT NESTS COMPILES THe NEST STATEMENT, 
A VARIABLE NEST INDEX CAUSES THF CODE» 
CRF Vs» BNS 0 »NOP+eNOPs TO BE GENERATED INITIALLY, 
AT THE RIGHT PAREN THe BNS JTS FIXED WITH THE LENGTH OF 
THE NEST cCNUMBER OF SYLLABLES) IF THE LENGTH S$63,0THERWISE 
1T IS FIXED WITH A 1 AND THE NOPS REPLACED WITH JFW 9, 
RCA P. THIS IS DONE RECAUSE THE VALUE oF V AT EXECUTION 


START OF SEGMENT 


109 1S . 


START OF SEGMENT 


110 1S 


START OF SEGMENT 
16088000 


{11 


1S 


16025000 
16026000 
16027000 
16028000 
16029000 
16030000 
16031000 


16032000 
16033000 
16034000 
16057000 
10 LONG 
16058000 
16059000 
16060000 
16061000 
16062000 
16063000 
16064000 
16065000 
16066000 
16067000 


16068000 
16069000 
16070000 
16071000 
16079000 
16080000 

12 LONG 
16081000 
16082000 
16083000 
16084000 
16085000 
16086000 
16087000 


16089000 
16090000 
16091000 
16092000 
16093000 
16094000 
16095000 
16096000 
16097000 

12 LONG 
16098000 
16099000 
16100000 
16191000 
16102000 
16103000 
16104000 


ORO OE 


OR RK 
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0408#0000:0 
0108000020 
010820000:0 
0108:000070 
0108:0000:0 
0108000020 
01082000030 


01093000030 
01092000431 
01093000614 
01093000732 


0108:0000:0 
0108:0000:0 
01068000080 
0108000010 
01083000030 
01082000080 
04082000030 
01083000030 
0108:0000!0 
0108%0000:0 


0110%0000!0 
041108000080 
0110:0000!0 
01102000434 
0110:0005!2 
01103000932 


010830000:0 
0108:0000:30 
0108:0000:0 
01083000030 
0108:0000:0 
0108!0000:0 
0108:0000:0 


0111%0000!0 
01118000021 
01112000332 
01118000420 
011130004:0 
0111#000533 
041120006:0 
011130006t0 
0111#0009%2 
01118000983 


0108%0000:0 
010830000:0 
0108!0000!0 
01088000030 
010830000:0 
010820000!0 


xR = «1.09 


NEXT SEG 108 


1190 


NEXT SEG 1086 


111 


NEXT SEG 108 


01082000030 


C) 


Cr > Ae a} 


Cy 


1 ¥ 


MAY = 0 AND THIS CODE CAUSES A JUMP AROUND THE NEST, 
JUMPOUT [INFO 7S REMEMBERED IN A RECURSIVE CELL AND 

NEST LEVEL INCREASED BY ONE, 

WHEN THE RIGHT PAREN 1S REACHEDeCIF .THE STATEMENTS IN 
THE NEST COMPILED)» JOINFO 1S CHECKED FOR THE EXISTANCE 
OF JUMPOUT STATEMENTS IN THE NESTsIF SOsTHE THE JUMPS 
ARE FIXED BY FAKING ToTOS INTO COMPILING THE REQUIRED 
JUMPS, 

FINALLY THE BNS IS FIXEDelF REQUIRED» AND NEST LEVEL 

AND JOINFO RESTORED To THEIR ORIGINAL VALUES, 3} 


PROCEDURE NESTS3 


COMMENT 


EXIT: 


COMMENT 


BEGIN 
LABEL EXIT3 


REAL JOINTseBNSFIX$ 
IF ELCLASS4LITNO THEN 
BEGIN 
EMITCCELBATECIJ«ADDRESS»sCRF)3 BNSFIXe L$ 
EMIT(BNS); 
END 
FLSE EMITCCELBATCI1.ADDRESS*BNS)3 
IF STEPY # LFETPAREN THEN BEGIN ERRC262)3 GO TO EXIT END; 
NESTLEVELeNESTLEVEL + 43 
JOINT « JOJNFO3 
JOINFO «© OF 
no BEGIN 
STFP1T? ERRORTOG « TRUES STREAMSTMT 
END UNTIL ELCLASS # SEMICOLON 3 
TF ELCLASS # RTPAREN THEN BEGIN ERR(26223G0 TO EXIT ENDS 
FMIT C ENS)3 
tf JOYINFO # O THEN 
BEGIN 
PREPARE TO CALL JUMPCHAIN FORJUMPOUTS? 
ADJUST? 
PUTCTAKECGITCJOINFO) QL ECLOCFLDIeGITCUOINFO) 23 
JUMPCHAITNCOTAKECJOINFOVKJOINF OF 35235413))3 
END3 
1F BNSFIX # 0 THEN FyYXCCBNSFIX)3 
NESTLEVEL « NESTLEVEL@173 
JOTNFO © JOINT > 
FND NESTS 3 


LABELS HANDLES STREAM LABELS, 

ALL LABELS ARE aDJUSTFD TO THE BEGINING OF THE NEXT 
WORD ¢cIN THE PROGRAMSTREAM), 

IF A GO TO HAS NOT BEFN ENCOUNTERED BEFORE THE LABEL 


THEN THE NEST LeVeL FrELD IS ENTERED AND THE DEFINED RIT» 


C1%11, SET TO ONE. FOR DEFINED LABELS» IF WHERE A GO To 


HAS APPEARED» A CHECK IS MADE THAT THE CURRENT NEST LEVEL 


MATCHES THE LEVEL OF THE LABEL. 
MULTIPLE OCCURANCES ARE ALSQ CHECKED FOR AND FLAGGED, 


FINALLY» JUMPCHAIN IS CALLED To FIX UP ANY FORWARD GO TOS 


AND GET A PRT LOCATION FOR ANY JUMPS 264 SYLLABLES, 3 


PROCEDURE LABELS} 


RFGIN 
REAL GT43 


16105000 
16106000 
16107000 
16108000 
16109000 
16110000 
16111000 
16112000 
16113000 
16144000 
16415000 
16116000 
164117000 


START OF SEGMENT 


{12 1S 


16118000 
16119000 
16120000 
16121000 
16122000 
16123000 
16124000 
16125000 
16176000 
16127000 
16128000 
16129000 
16130000 
16131000 
16432000 
16133000 
16134000 
16135000 
16136000 
16137000 
16138000 
16139000 
16140000 
16441000 
16142000 
16143000 
16144000 


34 LONG 


16145000 
16146000 
16147000 
16148000 
16149000 
16150000 
16151000 
16152000 
16153000 
16154000 
16155000 
16156000 
16157000 
16157100 


START OF SEGMENT 


Se ee ee ee ee ee ee ee ee 


ORR OK OK 


01962000030 
0108!0000!0 
01088000030 


0108:0000%0 ... 


01083000030 
0108+0000:0 
0108:0000:0 
010820000:0 
010880000:0 
01083000030 
01082000020 
0108:0000:0 
0108:0000:0 


eR 142 


0412%0000:0 
01122000080 
0112%000031 
0112:0001%2 
01123000333 
011230004!1 
0112:0004%1 
01123000631 
01412000913 
01128001084 
01122001123 
011230042:0 
01123001332 
0112001430 
01123001620 
01122001831 
01123001932 
01122002030 
01142'0020%1 
01122002084 
01127002132 
0412:0024%4 
011230026314 
014123002684 
01122002834 
011230030:0 
04122003031 


NEXT SEG 108 


0108:0000:0 
0108:0000:0 
0108!000030 
0108:0000%0 
0108200000 
01083000020 
0108:0000t0 
010830000:0 
0108000080 
0108000070 
0108!0000:0 
0108:000030 
01083000010 
0108:0000%0 


113 


O 


CQ) 


ANJUST} 
GTi « ELBATEY I: 


XMARK CLBLREF )3 
TF STEPI 


ELSE 


RFEGIN 
PUTC@CTAKECGT1&NESTLEVELL1124335))eGT1)3 
PUTC#LeGT2) 
FND 
FLSE 
BEGIN 
TF GTI eLEVELANESTLEVEL THEN FLAG(257)3 
PUTCC™LISTAKECGTDICLGTFLDI12GT2)3 
JUMPCHAIN(GGT41)3 
END3 
END 
; STEPIT3 
END LABELS 3 
COMMENT TES COMPILES yF STATEMENTS, 


BEGIN 


IF TAKECGT2*GIT¢GT1)2).L0C # 0 THEN FLAGC259)3 


IF GTi>70 THEN 


FrRST THE TEST 
CONSTRUCTS 


1S COMPILED. 


"SC RELOP DC’ AND 
THE SYLLABLE EMITTED 


NOTE THAT 


THE CODE 15 EMITTED STRAIGHTAWAY, 
A TEST IS MADE TO SEF WHETHER THE STATEMENT AFTER THE 
"THEN" COULD POSSIBLY BE LONGER THAN 63 SYLLABLESsAND IF 


SO» Z NOPS ARE EMITTED FOR FIXC 


To BE GENERATED, 
THIS PROCEDURE pOFS NO OPTIMAZATION IN THE CASES 


IF THEN GO TO LeIF THEN STATEMENT ELSE GO TO Ls 
IF THEN GO TO Li ELSE GO TO L2 ; 


PROCEDURE [FS3 


REGIN 


4 MARK LABEL OCCURENCE FOR XREF 
# COLON THEN ERRC258) 


IN THE 


DEFINE COMPARECODE=(42:614,TESTCODE=( 3626 ]#S 


LABEL 
SWITCH 


REAL 


IFSBs I FTOGsIFSCeEXIT? 


ANDRe1 3 


GO TO JFSWrSTEPI 


IFSW ¢ IFSBeIFTOGr IFSC 
ADDR» FIX1eF 1X2 


* 
? 


“SBV41) 3 


IF ELCLASSsLOCLIO THEN 


ELSE 


BEGIN 


EMITCCELBATE11.AD0DRESS»CRF)3 


ADDReO} 
END 


IF ELCLASS=LITNO THEN ADDR « ELBATEI],ADDRESS 
ELSE BEGIN ERR¢250)3 
IF STEPL # SCV THEN BEGIN ERRC263)3G0 TO EXIT END: 

rFSC: 7F STEPT # RELOP THEN BEGIN ERR(C264)3G0 TO EXIT END? 


Go TO EXIT ENDS 


#110" 


"SC RELOP STRING" THAT 
1S FETCHED FROM ONE OF TWO FIELDS 
IN THE ELBAT WORD FOR THE RELATIONAL OPERATOR, 


OTHERWISE 


IN CASE A RCA WILL HAVE 


OR 


tF STEPI = AcV THEN EMITCC ADDR»*ELBATII=1].COMPARECODE ) 


ELSE 


IF ELCLASS = STRNGCON THEN 


EMITCCACCUME11.C1526]°ELBATII°1)],TESTCODE) 


113 95 


16158000 
16159000 
16159100 
16160000 
16161000 
16462000 
16163000 
16164000 
16165000 
16166000 
16167000 
16168000 
16169000 
16170000 
16171000 
16172000 
16173000 
16174000 
16175000 
16176000 
16177000 

27 LONG 
164178000 
16179000 
16180000 
16181000 
16182000 
16183000 
16184000 
16185000 
16186000 
16187000 
16188000 
16189000 
16190000 
16191000 
16192000 


START OF SEGMENT 


16193000 
16194000 
16195000 
16196000 
16197000 
16198000 
16199000 
16200000 
16201000 
16202000 
16203000 
16704000 
16205000 
16206000 
16207000 
16208000 
16209000 
16240000 
16211000 


AAA HAHAH HHH H HHH AHHH AHH HAHAHAHA AHA AHH HH BA TA HH A tt AHH HO HH 


eee re ss 7 


01133000030 
011340000341 
0413000433 
0113:!000533 
011341000733 
014132000830 
0113#0008%4 
01132001231 
0113#0013%2 
011330043:3 
01138001631 
01132001782 
01133001723 
0113%001733 
0113'001,8:0 
04133002034 
0113%002383 
01413!002430 
01433002480 
01131002430 
0113:00246314 


NEXT SEG 108 


0108#000030 
01083000030 
0408:0000:!0 
0108:0000:0 
01082000030 


01083000030. 


0108%0000:0 
010820000:0 
010830000:0 
0108:0000:0 
01083000020 
01082000030 
0108:0000:0 
01083000030 
0108:0000!0 


0114%10000:%0 
01142000030 
0114:000434 
0114000434 
01142000533 
01143000932 
01142000933 
0114%!0040:0 
0114300142:0 
0114004224 
01143004224 
01148004281 
0114004424 
01148004733 
01442002014 
0114%0023%3 
01148002631 
01148002733 
01148002834 


114 


C) 


O 


() 


} 


O 


O 


—, 


‘@ 


ye UIT 


CE O° 


© 


O 


FLSE 


TF ELCLASS=LITNO THEN EMITCCCeELBATCI@1],TESTCODE) ELSE 
TF ELCLASSSIDMAX AND Q="SA,PHA" THEN FMITCC17sTAN) 


Go TO 
IFSB: EMITC 
” IF ST 
FIX4 
EMITC 


IFTog 3 
C(1BIT)3 


EP] # THENV THEN BEGIN ERR(266)3 


e Le 


JFC)3 


FLSE BEGIN FRRC265)3G0 TO EXIT END 


IF STEPT#ELSEV THEN 


STREA 


MSTMT3 


1F ELCLASS= ELSEV THEN 


ELSE 
EXITSEND 


COMMENT GO 


PROCEDURE GOT 
REGIN 
LABEL 


BEGIN 
FrX2 « 3 
FIXCCFIX1)3 
STEPI[T? 
STREAMSTMT3 
FIXCCFIX2)3 
EN? 
FIXCCFIX1)3 
IFS 3 


TOS HANDLES 
STATEMENTS, 


EMIT ¢JUFW)3 


GO TO EXIT EN 


D3 


GO TO AND THE LAST PART OF JUMP OUT TO 


IF THE LABEL HAS BEEN ENCOUNTERED THEN EMITJUMP 
AN PRODUCES A JRV OR RCA IN THE CASE OF JUMPS264 SYLLABL 


ES, OTHERWISE» 


GO ToS IN THE CASE OF FORWARD JUMPS, 


FINALLY» 


1S CALLED 


A LINK IS EMITTED POINTING ANY PREVIOUS 


IF THE NeST LEVEL 1S DEFINED THEN IT IS CHECKED 


AGAINST THE CURRENT LEVEL MINUS THE NUMBER OF LEVELS TO 


BE JUMPED OUT, 


OS} 


EXIT; 


IF STEP! #TOV THEN Telwi 3 
IF STEP! # STLABID THEN IF ELCLASS € IDMAX THEN 
DECLARELABEL ELSE BEGIN ERR(260)3 GO TO EX 


IFCGT2¢TAKECGITCGTI*©ELBATOCII)2 2 »MONRL 
OR GT2,L0C#0 THEN EMI TJUMP(GT1) 


ELSE 
BEG 


END 
JUMPL 
EXIT: END 


COMMENT 


IN PUTCO&LE 24236212] »GITCGT1))3 


IF GT1>0 THEN 


BEGIN 


OTHERWISE,NEST LEVEL IS DEFINED, 


PUTC@CTAKECGTII&CNESTLEVEL|JUMPLEVELICi134 
EMITNC1023)3 


END 
FLSE 
BFGIN 


ry 
, 


IT END3 


3$5])sGT1)3 


IF GTI LEVEL # NESTLEVEL@JUMPLEVEL THEN FLAGC257)3 


FMITCGT2,LASTGT); 


END3 

; 

EVELeO 3 
GOTOS H 


RELEASFS COMPTLES THE STREAM RELEASE STATEMENT, 


114 IS 


115 1S 


16212000 
16212500 
16213000 
16214000 
16215000 
16246000 
16217000 
16218000 
16219000 
16220000 
16229000 
16230000 
16231000 
16232000 
16233000 
16234000 
16235000 
16236000 
16237000 
16238000 
16239000 


64 LONG 


16240000 
16241000 
16242000 
16243000 
16244000 
16245000 
16246000 
16247000 
16248000 
16249000 
16250000 
16251000 


START OF SEGMENT 


16252000 
16253000 
146253100 
16254000 
16255000 
16256000 
16257000 
16258000 
16259000 
16260000 
16261000 
16262000 
16263000 
16264000 
16265000 
16266000 
16267000 
16268000 
16269000 
16270000 


AHHH ARM HHH HAHAHAHAHA AAA KR HAA a SY AAR AH Ht A HS Ht st tH 


29 LONGs 


16271000 


T 


OCR IK 


011430031%2 
0114%0032:0 
0114%0036:0 
01143003923 
0114300432 
01142004383 
014148004532 
01148004733 
01142004821 
0114:0049%2 
0414%0050:0 
01443005182 
0414%005230 
01148005231 
04142005480 
01148006434 
0114%0055:2 
0114%005533 
011430056314 
011480056314 
01143005733 


NEXT SEG 108 


0108000030 
0108#0000:0 
0108300000 
01088000080 
0108#0000!0 
01082:0000!0 
0108#0000!0 
0108:000030 
0108?0000:0 
0108:00003:0 
01082000030 
0108000070 


0115:0000:0 
0115000231 
0115%00053%2 
0115%000733 
01153001031 
011520013323 
011520014430 
01153001732 
01153004733 
011530018:0 
011520021482 
0115!002230 
01415:80022:0 
0115%0022:0 
011520020281 
01153002533 
0115:0027:2 
01153002732 
01152002732 


0115%002733. 
NEXT SEG 108 


01083000010 


115 


C) 


() (>) () 


“., 


(3 


Cy Cy O (1) C1) CO C) 


2 


Or. Se a) 


C4 


QO 


COMMENT 


BEGIN 
LABEL 


INTEG 
TCLAS 
1F ST 
IF TC 


IF TC 


THE CODE GENERATED IS 3 
SED FILE 
RSA 0, 
AT EXECUTION TIME THIS CAUSES AN INVALID ADDRESS WHICH IS 
INTERPETED BY THE MCP TO MEAN RELEASE THE FILE POINTED TO 
BY THE DESTINATION ADDRESS. 
THE MONITOR BIT IS SET IN INFO FOR THE LOCAL VARIABLE SO 
THAT ACUTAL PARAPART MAY BE INFORMED LATER THAT A FILF 
MUST BE PASSED FOR THyS FORMAL PARAMETERS 


INDEXS COMPYTLE STATEMENTS BEGINING WITH SIeDIeCI»e TALLY 
OR LOCALIDS , 
THREE CASES PRESENT THEMSELVES» 

LETING X Br EJTHER OF SteDteCy OR TALLY» THEY ARE? 

CASE I LOCLID « X 

CASE I] Neh pas 

CASE II] X « EITHER LOC»sLOCLID»SC OR DC, 
THE VARIABLE "INDEX" 1S COMPUTED»sDEPENDING UPON WHICH 
CASE EXISTS»SUCH THAT ARRAY ELEMENT "MACROCINDEXI"CONTAINS 
THE CODE TO BE EMITTED, . 
EACH FLEMENT OF MACRO HAS 14*3 SYLLABLES ORDERED FROM 
RIGHT TO LEFT» UNUSED SYLLABLES MUST = 0, EACH MACRO 
MAY REQUIRE AT MOST ONE REPEAT PART, 
IN THIS PROCEDURE, INDFXS»THE VARIABLE "ADDR" CONTAINS THE 
PROPER REPEAT PART BY THE TIME THE LABEL "GENERATE 1S 
ENCOUNTERED, THe SYLLABLES ARE FETCHED FROM MACROrTYPF) 
ONE AT A TIME AND ITF THE REPEAT PART # 0 THEN*ADDR® 15S 
USED AS THE REPEAT PARTsTHUS BUILDING A SYLLABLE WITH 
THE PROPER ADDRESS AND OPERATOR , 
NOTE: IF MACROLTYPE] = O THEN THIS SIGNIFIES A SYNTAX 

ERROR, ; 


PROCEDURE. INDEXS3 


EXIT*GENERATE*LeLt3 


FR TCLASS» INDEXsADDRs Js 

S ¢ FLCLASS 3 

EP] ¢ ASSIGNOP THEN BEGIN ERR¢251)23 GO TO EXIT END: 

LASS = LOCLIN THEN 

BEGIN 

XMARKCASSIGNREF 33 %11 0" 
IF STV>STEPI OR ELCLASS>TALLYV THEN GO To L3 

INDEX « 32 + ELCLASS#<SIV3 

ADDR « ELBAT£I=2),ADDRESS3 

GO To GENERATE; 

END; 

LASS = STEPI THEN 

BEGIN 

IF STEP] # ANDOP OR STEPI¥ LITNO AND ELCLASS # LOCLIN THEN 


16272000 
16273000 
16274000 
167275000 
16276000 
16277000 
16278000 
16279000 
16280000 
16281000 
16282000 
16283000 
16284000 
16285000 
16286000 
16287000 
16288000 
16289000 
16290000 
16291000 
16292000 
16293000 
16294000 
16295000 
16296000 
16297000 
16298000 
16299000 
16300000 
16301000 
16302000 
163093000 
16304000 
16305000 
16306000 
16307000 
16308000 
16309000 
16310000 
16311000 
16312000 
16313000 


START OF SEGMENT 


16314000 
16315000 
16316000 
16317000 
16318000 
16318500 
16319000 
16320000 
16321000 
163227000 
16323000 
16324000 
16325000 
16326000 


eR OO 


HAHAHAHA NMAA OHH HAHA RAHA AHA AAA AHH AAA AHH TA ARTA HRT AH AAT IS 


0108:0000:0 
01082000020 
01082000050 
010830000:0 
01082000030 
04088000030 
01083000020 
0108000080 
010830000:0 
010682000030 
010839000030 
01083000080 
01084000030 
01082000030 
01082000030 
01083000040 
0108:0000:0 
0108+0000:0 
0108%0000:0 
01082000030 
0108:0000!0 
01083000030 
01082000030 
01082000030 
0108:0000!0 
0108!0000:0 
0108#30000:0 
0108!0000:0 
01084000070 
0108:0000:0 


01082000030. 


0108:0000:0 
0108%:0000:0 
01083000030 
01082000030 
01408:000030 
01082000030 
0108!000030 
0108?0000!0 
01082000020 
0408:000030 
0108:0000:0 


01163000010 
0116%0000:0 
01162000021 
01164000333 
01163000430 
01162000434 
01162000982 
0116#001133 
0116%0014333 
011620015383 
011620016!0 
01162001620 
01163001472 
01162004733 


116 


& 


Cy 4. MO: 3Gh. Gr yO 4 a © 


oY © 


Oe AS. Sr OG. Ge 3G 2 


OQ 


ae 


GO TO Ls 
INDEX « TCLASS#STY 
+REALCELBATC 1°11]. ADDRESS=SUB) x 4 
+ REALCELCLASS =LOCLID) x 83 
2... END 
FLSE 
BEGIN 
INDEX « TCLASS #SyV 
+ ( TF ELCLASS = LOCLID THEN 16 ELSE 
TF ELCLASS = LOCV THEN 20 ELSE 
IF ELCLASS = SCV THEN 24 ELSE 
IF ELCLASS= pCV THEN 28 ELSE 25)3 
IF ELCLASS = LOCVY THEN 
IF STEP] # LOCLID THEN GO TO L? 
IF ELCLASS = LITNO AND TCLASS = TALLYV THEN 


BEGIN EMITCCELBATCIIJ+ADDRESS*sSEC)3GO TO EXIT ENDS 


END 3 
ADDR « ELBATELII]+¢ADDRESS; 
ATES 
IF MACROCINDEX]= O THEN 

BEGIN ERR(250)%G0 TO FXIT END? 
Jo« 83 TCLASS «0 ; 
MOVECHARACTERSC2»MACROLINDFXJ oded™2eTCLASS*#6 )5 
tf TCLASS#0 THEN 


BEGIN 

EMITCCIF TCLASS2>64 THEN ADDR FLSE OsTCLASS)3 
GO TO ld 

ENDS 


EXITtEND INDEXS 3 


COMMENT DSS COMPILES DESTINATION STREAM STATEMENTS, 
DSe LITVSTRING® +S HANDLED AS A SPECTAL CASE BECAUE THE 
STRING MUST BE SCANED FROM RIGHT TO LEFTsREPEATEDLY IF 
NECESSARY» AND EMITTED TO THE PROGRAM STREAM. IN 

ALL OTHER CASES,THE ELBAT WORD CONTAINS THE OPERATOR IN 


THE OPCODE FIELD 3 


PROCEDURE DSS} 


BFGIN 
INTEGER ADDReJdeKoLoT3 


LABEL EXITeLt3 
DEFINE OPCODE=(27:6]#3 


IF STEPI # ASSJTGNOP THEN BEGIN ERR¢(254)3 GO TO EXIT END? 


IF STEP! = LOCLID THEN 


BEGIN 
EMITCCELBATCII,ADDRESS CRE D3 
ADODR« 03 
IF STFPI = LITV THEN GO TO U1 
END 

ELSE IF ELCLASS= LITNO THEN 
BEGIN 
ADDR « ELBATrIJ.ADDRESS$ STEPTT 3 
END 


FLSE ADDR « 1 3 

IF Q@ = “4F7LLO" THEN ENITCCANDR®10) ELSE 

IF ELCLASS = TRNSFER THEN FMI TCCADDR»FLBATELIJ.OPCONDE) 
FLSE 

IF FLCLASS = LITV THEN 


16327000 
16328000 
16329000 
16330000 
16331000 
16332000 
16333000 
16334000 
16335000 
16336000 
16337000 
46338000 
16339000 
16340000 
16341000 
16342000 
16343000 
16344000 
16345000 
16346000 
16347000 
16348000 
16349000 
16350000 
16351000 
16352000 
16353000 
16354000 
16355000 


62 LONG 


16356000 
16357000 
16358000 
16359000 
16360000 
16361000 
16362000 
16363000 
16364000 


START OF SEGMENT 


16365000 
16366000 
16367000 
16368000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16375000 
16376000 
16377000 
16378000 
16378500 
16379000 
16380000 
16381000 


AOR GR Ok 


SAA AHH HAM HAH AHH AAA HAH TAY HH AAA RATA AAA IA A tS st ts 


01163001933 
011640021323 
0116%002230 
0116:002430 
0116!002732 
0116:0027%2 
0116%002732 
011630020733 
01162002830 
0116200300 
01163003210 
01167003430 
011630037%2 
01164003830 
01162004020 
0116'0041%3 
04163004431 
011630044214 
0116:0046:0 
01162004630 
0116:0047%2 
0116:0049%2 
0116%0050%4 
0116#0054:0 
01161005434 
011620055%2 
014161005830 
01163005834 
0116'005834 
NEXT SEG 108 
0108:0000:0 
0108:0000:0 
0108:0000:0 
0108!'0000:0 
0108:0000:0 
01082000030 
0108:0000:0 
0108:000030 
0108:000030 
117 
0117%0000:0 
0117:0000:0 
01172000030 
01173000234 
01173000333 
01173000430 
01171000630 
0117000634 
01174000733 
01172000820 
0117300098 3 
01172001020 
01173004220 
0117004210 
0141700432 
01473001533 
01172004932 
0117%0020:20 


C) 


BEGIN 
EMITCCADDR»® TRP)3 
IF STEPI#STRNGCON THEN 
BEGIN ERR(255)3G0 TO EXIT END3 
IF ADDR MOD 9 # O THEN 


REGIN 
osieiee EMITCACCUM(G1],01836])3 Ye 93 
END 3 
FOR K «J+2 STEP 2 UNTIL ADDR po 
ee ae BEGIN 


FOR L «607 DO 

MOVECHARACTERSCLs,ACCUMC1]s24+C1F Jed+1>COUNT THEN Jel 
FLSE JdeTeol 3 

EMIT¢CT);3 


END END 
ELSE 
Lit FRRC250)3 
EXITSENN OSS) 3 


COMMENT SKIPS cCOMPYLES THF SKIP BIT STATEMENT, 
IF THE REPEAT INDEX 1S A LOCALID THEN A CRF JS EMYTTEn, 
A BSS OR 8S) 1S THEN EMITTED FOR SKIP SOURCE BITS ¢SR) 
OR SKIP DESTINATION BITS (DB) RESPECTIVELY 3 
PROCEDURE SkIPS 3 
. BEGIN 
REAL ADDR} 
IF STEP! = 
BEGIN 
EMITCCELBATECI].ADDRESS»CRF)$ ADDR*O3 STEPIT? 
END 
IF ELCLASS = 
BEGIN 
ANDR« FLBATEL1I,ADDRESS$ 
END 
FLSE ANDR « 1 3 ; 
TF ELCLASS =SBV THEN EMITC¢ADDR«BSS) 
ELSE 
IF FLCLASS =DBV THEN 
FLSFE ERRC(250)3 
END SKIPS 3} 


LOCLID THEN 


ELSF LITNO THEN 


STEPIT 


EMITCCADDRsBSD) 


cage COMMENT JUMPS COMPILES JUMP OUT AND JUMP OUT TO STATEMENTS, 
JUMP QUT TO STATEMENTS CAUSE JUMP LEVEL TO BE SET TO 
THE NUMBER OF LEVELS SPECIFIED. THEN THIS NUMBER OF 
JNS ARE EMITTED AND GoTOS IS CALLED TO COMPILE THE 
JUMP INSTRUCTION, 
SIMPLE JUMP OUTS ARE HANDLED BY EMITTING ONE JNSe ENTERING 
A PSEUDO STLABIND IN INFO AND SETTING ELBATEIY SUCH THAT 
THE GOTOS PROCEDURE WILt, PERFORM THE ACTION OF SETTING 
UP THE LINKS FOR LATER FIX UPS. THE NEST STATEMENT CAUSES 
THESE FIX UPSCIF FMITTING OF JUMP INSTRUCTIONS) BY CALLING 
GO TOS WHEN THE RIGHT PAREN IS ENCOUNTERED, 3 
PROCFDURF JUMPS} 

BFGIN 

JUMPLEVELed 3 
IF STEPI#DECLARATORS THEN IF ACCUML1]4"30UTOO" THEN 


117 1S 


16382000 
16383000 
16384000 
16384500 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 
16393000 
16394000 
16395000 
16396000 
16397000 
16398000 


32 LONG 


16399000 
16400000 
16401000 
16402000 
16403000 
16404000 
16405000 


START OF SEGMENT 


118 1S 


16406000 
16407000 
16408000 
16409000 
16410000 
16411000 
16417000 
16413000 
16444000 
16415000 
16446000 
164147000 
16418000 
164419000 


18 LONG 


16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 
16432000 
16433000 
16434000 


TARA AA HHH AA HH 


ho KR i AO k 


BANDA RADHA ARH HAAS HHH HAH a eR HH 


0117'009182 
011730091433 
01172002234 
01171002383 
0117'002533 
01179002631 
0117:0027%t2 
01173002983 
0117:002933 
01173003333 
01172003333 
0117#0038:0 
01478004133 
01171004434 
01172004583 
0117%0046:0 
01173004620 
0117%004733 
NEXT SEG 
0108:0000:0 
0108!0000:0 
0108:0000:0 
0408:0000:0 
0408%0000:0 
0108!0000:0 
0108:0000:0 


0116!000030 
01187000132 
01182000133 
O118F 000434 
01187000434 
01182000533 
01183000630 
0118000723 
0118:0008:0 
0118!000933 
04183004122 
0118001123 
0418100134:0 
01183001523 
NEXT SEG 
0108'0000:0 
0108:0000:30 
0408:0000:0 
0108:0000:0 
010820000:0 
0108000070 
01082000030 
0108:0000:0 
0108!:0000:0 
0108!0000;0 
0108:0000:0 
0108:0000:0 
0108:0000:0 
0108:0000:0 
010830001433 


108 


118 


106 


Co Se A BS 


@) 


O © 


os 


COMMENT 


FLAG(261) 
1F STEP] = LITNO THEN JUMPLEVELe ELBATIT] 
ELSE BEGIN 
IF ELCLASS# TOV AND FLCLASS# STLABID THEN 
BEGIN 
SyMPLE JUMP OUT STATEMENT? 

IF JOJNFO = 0 THEN 
BEGIN 
JOINFO « NEXTYINFO 3 
PUTNBUMPCSTACKHEADCOJ].LINK&CSTLABIDx241) 
C2°4Or BRAC 972 408B 1)3 
PUTNBUMPCORCJOINFO=LASTINFO 
PUTNBUMP (0)3 
LASTINFO « JOINFO? 
FND3 
ELBATEI«© I"1]* TAKECJOINFO)QUOINF OL 35335!13)3 
END# yeyrd > 


> we 


2{ 4%4038))3 


END 

FOR GTi* 1 STEP 1 UNTIL JUMPLEVEL po 
EMIT¢ = JNS)3 

GOTOS3 

FND JUMPS; 


COMMENT STRFAMSTMT ENVOKES THE APPROPRIATE PROCEDURE TO HANDLE 


THE VAR}OUS AND SUNDRy STREAM PROCEDURE STATEMENTS, 
THE STATEMENTS aRe BROKEN DOWN AS FOLLOWS? 
IDENTIFIED BY PROCEDURE ENVOKED ~ 


END GO TO FIN] 
SEMICOLON GO TO FIN 
) GO TO FIN] 
IF IFS 
GO GOTOS 
RELEASE RELEASES 
BEGIN COMPOUNDTAIL 
SteDileCreTALLYe LOCALID INDEXS 
pS DSS 
SKIP SKIPS 
JUMP JUMPS 
LABELID LABELS 


LITERAL NO,» LOCALIDC NESTS 
UPON EXITING» STREAMSTMT ASSURES THAT "I POINTS TO 
THE SEMICOLON »FND OR ) IN SYNTACICALLY CORRECT PROGRAMS? 
LABEL Labseb2rb3sbL4 sb 5elLOeb7ol Orb Oo OsEXIT» FIN] » START? 
SWITCH TYPE ¢ FINTsLeFINTs L3eL es L Ss L6eL7ol lo Leo eboel Oe L{03 


START! GO TO TYPEC ELCLASS*ENDV+1)3 


—-—rcoerc-: 
Ww YR 


IF ELCLASS= RTPAREN THEN GO TO FYINY 3 
JF ELCLASS= STLABID THEN GO TO L2 3 


IF ELCLASS <IDMAX AND FLCLASS#LOCLID THEN BEGIN 
NECLARELABELS GO TO Los END? 
IF ELCLASS = LITNO OR ELCLASS = LOCLID AND TABLECI4+1) 
= LFTPAREN THEN GO TO L143 
TF FLOLASS = LOCLID THEN GO TO 1,73 
ERR¢ 250 )# GO TO FINy } 


H NESTS} GO TO EXxIT3 
H LABELS: GO TO START3 
: 1PS3 GO TO FYINY3 


GOTOS3 GO 10 EXIT 


164341400 
16435000 
16436000 
16437000 
16438000 
16439000 
16440000 
16441000 
16442000 
16443000 
16444000 
16445000 
16446000 
16447000 
16448000 
16449000 
16450000 
16451000 
16452000 
16453000 
16454000 
16455000 
16456000 
16457000 
16458000 
16459000 
16460000 
16461000 
16462000 
16463000 
16464000 
16465000 
16466000 
16467000 
16468000 
16469000 
16470000 
16471000 
16472000 
16473000 
16474000 
16475000 
16476000 
16477000 
16478000 
16481000 
16482000 
16482100 
16482200 
16482300 
16482400 
16482500 
16483000 
16484000 
16485000 
16486000 
16487000 


AAA AAA ASA SAAS A A a tt Ht tt ee is 


0108:0004:0 
01083000533 
01087000732 
0408:004140:0 
0408'00413%3 
01082004230 
010830042:0 
0108!0013:2 
0108:0043:3 
0108:00;14:0 
01087001633 
01408:001,834 
0108?002112 
0108!0021:3 
01083002234 
01083002231 
0108:0026:0 
0108:002733 
0108:0027:33 
01083002932 
01083003230 
0108:003231 
010820032314 
04083003234 
01083003234 
0108!003234 
0408!003234 


0108%0032%4 . 


01082003234 
0108:0032%1 
0108#0032%4 
0108:003234 
040830032321 
0408:003234 
0108!003231 
01083003234 
01083003231 
01083003231 
01084003231 
01081003231 
0108:003231 
0108:'0032%1 
0108:0032%4 
0108:004332 
0108t0047:2 
0108:0048:0 
0108:004933 
0108:0049%3 
0108:0051:3 
04108:0052%4 
0408:0055:2 
0408:00573:2 
01088005834 
0108:0060:0 


0108006230 - 


0108%0063:2 
01308:006410 


a 


Cy 


Cy 


C) 


C 


3 
ts 1.63 Tel+4 * COMPOUNNDTAIL# GO TO FINTS 
\,73 INDEXS3 GO TO EXIT 
L823 DSS: GO TO EXIT: 
|.93 SKIPS; GO TO EXIT 
1.108 JUMPS} GO TO EXIT? 
EXT? STEPITS 
FINT: END STREAMSTMTS 


MOVE CL» tTeCODECO))3 

TIME1 «© TyMEC1)23 PROGRAM; 
ENnOFTTALL? 

1F cXREF OR DEFINING. Ftit]) AND XLUN > O THEN 
BEGIN DEFINE LSSs <#eGTRar#eNFO= #4, EF 05<#3 


DEFINE XREFINFOLINDEX] = INFOCCCINDEX),.CF DIV 2),f3387]> 
CCINDEX).CF DIV 2),LINKC]#, 
CF £33°15)#, 
FF Ci8?15)#» 
NENTOCINDEX] = CIF BOOLEANCINDEX) THEN XREFINFOCINDEX], 
ELSE XREFINFOLINDEX],CF)#3 


ARRAY TIMINGS (0:2°0:3]3 
PROCENURE SAVETIMESCI): 
VALUE I* INTEGER I} 


BEGIN . 
INTEGER J3 
FOR J ts {1 STEP 1 UNTIL 3 DO 
TIMINGSEI,Jd] t= TrMECcJ)3 
ENn3 


PROCFNURE UPNATETIMESCI)3 
VALUE T3 INTEGER I3 
BEGIN 
INTEGER J3 


FOR J t= 1 STEP 1 UNTIL 3 00 
TIMINGSE od) t= TIMECJ) @ TIMINGSC re JT3 
ENn?$ 


CLOSFCCARDs RELEASE) 3 
CLOSECTAPE,RELFASE)? 
LOCKCNEWTAPE)3 
WRrTE CLINE EPAGE])3 
SAVETIMESCO)3 % SAVE TrMrS FOR START OF INENTIFIER SORT, 


FOR XRFFPTtsXReEFPT STEP 4 UNTIL 29 DO XREFAYArLXREFPT1¢=1000000003 


WRITE CDSK2*s 30sXRFFAY2[*])3 
TOTALNO t= XLUN% % REMEMBER NUMBER OF IDENTIFIERS, 
XREFPTeXLUNeO3 
FoR 1 t= O STEP 1 UNTIL 8191 Do 
PUTCOsT)3 
- BEGIN 
BOOLEAN PROCEDURE INPUT1CA)3 


ARRAY ALO]> 
BEGIN 
LABEL lL» EOFs 


16488000 T 
16489000 T 
16490000 T 
16491000 T 
16492000 T 
16493000 T 
16494000 T 
16495000 T 
108 15S 7H LONGs 
16495100 T 
16495200 T 
%108= 16495210 P 
%140- 16495300 P 
ZDFB 17002000 ¢ 
START OF SEGMENT * 
%110= 17002005 ¢: 
%110= 17002006 Cc 
%110= 47002007 C 
%110" 17002008 c 
FF 17002009 ¢ 
%110= 47002010 C 
%¥110° 170020142 C 
%110= 17002015 C 
%4110= 17002020 C 
%110- 17007025 C 
%110" 17002030 C 
START OF SEGMENT * 
%110" 17002035 C 
%110- 17002040 ¢ 
%110= 17002045 ¢ 
120 1S B LONG» 
%110" 17002050 ¢ 
%110° 17002055 ¢ 
%110" 17002060 ¢ 
%110= 17002065 c 
START OF SEGMENT 
%110" 17002070 ¢ 
%110* 17002075 ¢ 
Z1108 17002080 ¢ 
121 IS 1Q LONGe 
21089 17002490 ¢ 
¥108= 17002500 ¢ 
%108% 17002510 ¢ 
%108% 17002520 ¢ 
¥110= 17002525 ¢ 
17003000 C 
%DFB 17008000 ¢ 
%110- 17004500 C 
ZDFB 17004600 C 
%110" 17004700 ¢ 
Z110" 17004710 C 
40FB 17005000 ¢ 
%DFB 17006000 ¢ 
START OF SFGMENT * 
%OFB 17007000 ¢ 
%NFB 17008000 ¢ 
SOFB 17009000 ¢ 


04083006522 


01081006522 
0108:0067%2 
0108:0069%2 
0108%007080 
010830071%2 


- 01083007280 


01083007234 


NEXT SEG 3 


000320636:0 - 
00033064132 
00038064274 
0003:0643%2 
0003#0645:3 


Ke OOK 449 


0119200000 
0119000030 
0119#0000%0 
0119:0000°0 
01192000030 
0119'0000%0 
01192000050 
01192000271 
0119000231 
0119%0002%4 
011972000231 


ek RR KER «420 


0120:0000:0 
0120:0001:2 
0120000533 


NEXT SEG 119 


01192000231 
01192:0002:1 
01193000231. 
011980002814 


ee KKK 121 


012128000080 
01212000182 
0121:0007%2 


NEXT SEG 119 


01193000234 
01198000481 
0119%$0006:0 
011930008:0 
011920042:0 
04193004234 
0119%001723 
01192002133 
0419:0022%4 
01198002383 
011920026!0 
0119%0029%2 
0119002912 


dk «22 


01223000030 
01222000030 


0122!0000!0 


O 


Gh ep: 1 «Oe 


Gy “Oe «@ 


} 


\ 
f 


RFADCDSK1+10,AC¥])CEOFI3 

gO TO Ls 

FOF? JNPUT1?=TRUE3 
REWIND (DSK1)3 

Ls 

END} 


PROCEDURE OUTPUT1¢B+A)3 
VALUE BE 
BOOLEAN B3 
ARRAY ArOl3 
BEGIN 
IF B THEN 
BEGIN 
REWINDCDSK193 


ADFB 
30FB 
ZDFB 
aDFB 
S0FB 
*DFB 


4DFB 
ZOFB 
4OFB 
ZOFB 
Z0FB 
ADFB 
2110= 
%410" 


UPDATETIMES(O)$ 2 UPDATE TIMES FOR IDENTIFIER SORT, 
TIMINGSLO*+0] s= XLUN} % NUMBER OF IDENTIFIERS SORTED, 


END 


BEGIN 
IF BOOLEANCAL8]) THEN 

XREFINFOCALCBII].FF ¢= XLUN t= XLUN 4+ 1 
ELSE 

XREFINFOPFALB8I),CF %= XLUN t= XLUN 4+ 43 
AL8],1IDNOF $= XLUN3 
WRITECDSK1510,Ar¥*1)3 


END} 
END? 
ROOLFAN STREAM PROCENURE COMPS1(A»B)3 
BFGIN 
ST IsA3 
NT ispi 
IF 63 Sc < Dc THEN 
TALLY $5 4 
ELSE 
BEGIN 
SI t= A} 
DI t= B3 
IF 63 SC = DC THEN 
TALLY t= 93 
ENDs 
COMPS1%=TALLY3 
END3 
STREAM PROCEDURE HVS1(A)3 
BEGIN 
DTtsas 
DSt=8 Lit "93 
S]3sA3 


ONSt= 7 woS3 
OS ts 8 LIT 3"777777777"3 & ID.NO. AND SEG,NO, FIELDS 
ENDs 
BOOLEAN PROCEDURE COMP1(AsB)3 
ARRAY A»BrO]; 
IF REALCCOMP4$=COMPS1(A+B)) = 2 THEN % [DS EQUAL 
COMP] %= Ar8],1DNOF < BE8]7,1DNOF3 
PROCEDURE HV1CA)3 
ARRAY ALQ43 


¥110= 
Z0FB 
2DFB 
%110" 
¥110- 
%110= 
%¥110= 
%410- 
ZDFB 
ZOFB 
ZDFB 
SDFB 
2NFB 
ZD0FB 
ZOFB 
%¥110# 
%4108 
%1108 
%110= 
%110= 
%110« 
%1108 
%110" 
%110" 
ZDFB 
EDFB 
ZDFB 
XNFB 
ZDFB 
ZOFB 
ZDFB 
ZOFB 
%110= 
%DFB 
ZNFB 
¥DFB 
%1108 
%110- 
%DFB 
ZDFB 


123 1S 


START OF SEGMENT 


17010000 
17011000 
17012000 
17013000 
17014000 
17045000 


14 LONG 


17016000 
17017000 
17018000 
17019000 
17020000 
17021000 
170227000 
170227100 
17022200 
17022300 
17022400 
17023000 
17024000 
17025000 
17025100 
17025200 
17025300 
17025400 
17026000 
17027000 
17028000 
17029000 
17030000 
17031000 
17032000 
17033000 
17033400 
17033200 
17033300 
17033400 
17033500 
17033600 
17033700 
17033800 
17034000 
17035000 
17036000 
17037000 
17038000 
17039000 
17040000 
17041000 
17041100 
17042000 
17042100 
17042200 
17042300 
17042350 
17042400 
17042500 


SG OOK 


- 


PDOIBWOMIDMAAMN|AAIAONANAMANANANADAANDAD AQ MAF OD Aa oOD-F DQADAINMAIANMQANANANAANAMANANOS 


01238000070 
0123!000532 
0123000533 
0123:0006:1 
0423000834 
01238000932 


NEXT SEG 122 


0122:0000:0 
04222000030 
012230000:0 
012280000:0 
01223000030 


0122%0000:0 ~ 


0122?000030 
01222000031 
01223000281 
0122:0003%2 
0122:0005%2 
012280005%2 
012210005%2 
0122!00053 3 
0122:!0006:0 
01222004231 
01227001420 
0122002133 
0122'0023%3 
012270028:0 
0122#0028:0 
012270028:0 
01223002830 
01221002982 
0422%0029%2 
04222002933 


01223003030. 


042280030:0 
04228003034 
01223003031 
01223003031 
0122:0031%2 
01223003133 
0122:00313%3 
01222003133 
01223003230 
0122:0033:2 
01223003332 
0122003332 
0122:0033:2 
01223003431 


01273003434 . 


0122:0035!2 
012223003630 
01222003631 
0172300363 4 
014223003634 
01222004030 
01223:0045%92 
014223004539 


123 


{~ 


Ct) 


C) 


m 
Ad a 


© 


HVS1CA)3 
X|,UN3 =03 
REWINDCDSK4)3 


ADF B 
BDFB 
ANFB 


SORTCOUTPUTIL» INPUT1*O*eHVieCOMP1*210°1F TOTALNO < 1000 THEN %110- 
7000 ELSE 19000); 


ENDs 


BEGIN 
ARRAY IDTYPELO: CLOMAX+4)x4"1]3 


STREAM PROCFDURE SETUPHEADING( 


S»DeSEGsSEQNOFWOTOG»LBLTOG, 
FADSEQNOS TYPE» OWNTOGPPARAMTOGSs 
VALTOG)3 


VALUE SEG» SEQNOrFWDTOGsLBLTOG»eFWDSEQNOsOWNTOGsPARAMTOGs 


VALTOG3 
BEGIN 
St t= S3 
mt t= D3 


63 ¢IF Sc = " " THEN JUMP OUT ELSE DS ¢= CHR)3 


hs fs 6° LIT * == 
OWNTOG (DS ts 4 LIT "OWN ")3 
SI t= TYPE: 


32 cIF Sc = "," THEN JUMP OUT ELSE DS t= CHR) 


PARAMTOG (DS #= 6 LJT " == 


5 


OS t= 4 LIT "NAME"$ 
VALTOG CODY t= DI @ 43 DS t= 5 LIT "VALUE")$3 
0S t= 10 LIT " PARAMETER")3 


nS := 48 LIT ™ ™= DECLAREN AT "3 
SI t= LOC SEQNO; 

nS += 8 DEC} 

FWOTOG (nS t= 17 LIT "= 


SI t= LOC FWDSFONO; 
DS t= 8 NEC); 
LBLTOG (pS t= 16 LIT " == 
Sy} t= LOC FWOSEQNOS 
DS ts B DEC); 
ENn. OF SETUPHFADING? 


FORWARD AT "3 


occURS AT "3 


STREAM PROCEDURE ADDASEQNOCSEQNO+N* STARS sD) 3 


VALUE SEQNO,N»STARS; 


BFaIN 
nl t= D3 
nt = DI + 83 


N cOY = DJ + 40)3 

STARS(DI t= Df 7 1% OS Se Ly 
S1 t= LOC SEQNO; 

nS t= 8B PEC} 

pS t= LIT " ny 


T wat yy 


STARS CDI t= DI = 13 DS te LyT ways 


ENN3 
STREAM PROCEDURE BLANKETC(D)3 
BEGIN 

nt t= D$ 

nS += 8 LIT & "3 

Ss! t= DS 

nS t= 16 WDS3 


ENn OF BLANKET; 


£110" 
2DFB 


2NFB 
aii2= 


*110= 
%110= 
¥110= 
%1108 
%110- 
%110- 
%110" 
Ki10O= 
%110= 
%110= 
%110= 
¥1108 
2110" 
%110- 
Z1to= 
%110= 
%110" 
¥1410 
%110" 
%110= 
%110" 
%110" 
¥110° 
Z110" 
%110= 
%110= 
%110= 
¥110= 
¥110" 
¥110" 
¥110" 
¥110- 
%110= 
%110= 
%110= 
%110" 
%110° 
%¥110- 
%1108 
%110= 
%110= 
%110- 
%110" 
%110- 
%110" 
¥110= 
%110= 


122 18S 


17047600 
17043000 
17044000 
17045000 
17045100 
17046000 


79 LONG 


17047000 
17047100 


START OF SEGMENT 


17047200 
17047300 
17047350 
17047400 
17047450 
17047500 
17047700 
17047800 
17047900 
17048000 
17048100 
17049300 
17049400 
17049440 
17049420 
17049430 
17049440 
17049500 
17050400 
17050500 
17050600 
17050700 
17050800 
17050900 
17051000 
17051100 
17051200 
17051300 
17051400 
17051500 
17051600 
17051700 
17051800 
17051900 
17052000 
17052100 
17052200 
17052300 
17052400 
17052500 
17052600 
17052700 
17052800 
17052900 
17053000 
17053100 
17053200 


AMANDQAAARAANMADAMANANMAIANDANANAAAIANAANDIAANIAAANAAANANAANIANAANY OREN] NDIAIONIONAIOD 


hak eR ak 


04225004532 
0122:0047%2 
0122%0048631 
01223005034 
0122300701 
01223007231 


NEXT SEG 119 


01192003182 
0119003122 


0124:000532 
0124:0005%te2 
0124:0005%2 
0124:0005:2 
0124:000532 
0124:0005:2 
012410006%0 
01241000630 
012430006314 
01248000932 
0124:0010!0 
04242004230 
01243004230 
0124:0045%2 
012430037:2 
01241004733 
01243002030 
0124002230 
0424:002421 
012430024314 
0124:0025:2 
0124:002831 
01243002831 
012430009%2 
0124300323 4 
04243003234 
01248003332 
0124:0033%3 
01242003333 
01242003333 
01424:003323 
012448003420 
01242003430 
01243003431 
01424%0036:0 
0142420038:0 
01243003830 
012430038324 
0124%0039%2 
0124:00413%2 
0124:0041%2 
01248004132 
01242004220 
01242004230 
01242004333 
01242004333 
012410044:0 


124 


C) 


C) 


PROCENURE PRINTXREFSTATISTICS# Y1108 17053300 c 0124:0044:0 
BEGIN %110" 17053400 ¢ 0124:0044:0 
SWITCH FORMAT STATS $= %110= 17053500 Cc 0424!0044:0 
START OF SEGMENT xkee RRR RHR 9.95 

START OF SEGMENT xexKkKEKER 126 


=, 


O 


(///+ “CROSS REFERENCE STATISTICS", /» %110" 17053600 0126:0000:0 
Newer n eaten wane naman eee, /), £110 17053700 01262000010 

CYMPHASE ONE = SORT» 16," [DENTIFIERS")» %110" 17053800 0126#0000!0 
C™PHASE TWO = SORT" 517," REFERENCES"), %110- 17053900 0126%30000:0 
("PHASE THREE = PRINT CROSS REFERENCE C'sl7»e™ LINES) "), 2110 17054000 0126%0000!0 
CX5e14e"s, ort" ELAPSED TIME (MINISEC)I"), 71102 17054100 0126:20000:0 
CXS+T Ge", 211+" PROCESSOR TIME"), 41108 17054200 01263000030 
CX5eT4o"s,o745" 1/0 TIME", /)3 %1107 17054300 0126000070 
B87 LONGs NEXT SEG 125 

INTFGER J[odeK? 4110 17054400 01253000030 
WRITECLINE*sSTATS[0])3 2110 17054500 012520000:0 
FOR 1 $= O STEP 41 UNTIL 2? Do %110= 17054600 049253000430 
BEGIN 4110 17954700 01253000532 
WRITE CLINE ®STATSE I +1] >TIMINGSLI°0193 #1102 17054800 01252000532 

FOR J #= 1 STEP 4 UNTIL 3 DO %110= 17054900 01253001532 
BEGIN ¥110= 17055000 01252001630 

K = CTIMINGSC rey] + 30) DIV 603 & ROUND TO NEAREST SECON 17055010 012530014630 
WRITECLINEsSTATS£EUt319K DIV 60e(K8=K MOD 60) DIV 10.%110" 17055070 0125:0018:1 


K MOD ¥110= 17055095 01252003084 

ENDs %110- 17055030 012530036:1 
FND3 ¥140" 17055100 01253003831 
ENn PRINTXREFSTATISTICS3 ¥110" 17055200 01252004132 
44 LONGse NEXT SEG 124 

DFFINE REFCOUNT = TIMINGS(C1s03#3 % NUMBER OF REFERENCES SORTFD. 17069300 01242004420 
BOOLEAN FIRSTTIMEs % TRUE ON FIRST CALL OF OUTPUT PROCEDURE, 17069400 0124:0044:0 
ARRAY PAYrO?47]3 S0FB 17069500 012410044380 
REAL LASTADDRESS$ %1108 17069600 0124:0048:0 
BOOLFAN PROCEDURE |NPUT2¢A)3 ZOFB 17070000 012430048:0 
ARRAY AfQO]3 %DFB 17071000 012430048:0 
REGIN ¥DFB 17072000 012410048:0 
LABEL LeRkOFE Z0FB 17073000 012430048:0 
START OF SEGMENT kexkkRKKKH 8 197 

DEFINE 1 = LASTADDRESS#; %110= 17073100 012720000380 
IF XREFPT&=XREFPT+1=30 THEN ZNFB 17074000 012730000:0 
BEGIN 2DFB 17075000 01274000133 
READCOSK2»30eXREFAY2CL¥])CEQF]3 %NFB 17076000 01272000230 
XREFPT!s03 ZDFB 17077000 01274000733 
ENDS ZDFR 17078000 0127%0008:0 

TF C PT  feXxREFAY2CXReEFPTI),£21%27] GTR 99999999 THEN GO TO EOF$ 17079000 012730008:0 
ArO] t= I & NEWIDrT.REFIDNOF) REFIDNOF? %110= 17080000 0127:001031 
REFCOUNT t= REFCOUNT + 43 21108 17080100 012780008%0 
GO TO L3 SDFB 17081000 01273003133 
FOF? INPUT? ?=TRUE; ZNFB 17082000 01273003332 
BLANKFTCPAY)3 Z0FB 17083000 042730033:3 
-XRFFAY1£8] t= XREFPT t= LASTADDRESS fe O03 Z110= 17084000 042730035:2 
FILL TOTYPEC*] WITH ¥110= 17084010 01273003733 
"UNKNOWN, ", % 0 ¥110- 17084020 012730038:0 
START OF SEGMENT *xxekeKRKKE 8998 

"STREAM LABEL, ", Kk 4 %110- 17084030 012730039!2 
"STREAM VARIABLE, he Boo %110= 17084040 012780039%2 
UDEFINE, ", % 3 %110- 17084050 01271003932 
"LIST, ", £4 %1410° 17084060 042730039%2 
"FORMAT, 1, 25 ¥110= 17084070 01427:0039:2 


O 


"SWITCH FORMAT 
"REAL SUBROUTI 
"SUBROUTINE. 
"SWITCH LABEL. 
"PROCEDURE, 
"INTRINSIC, 
"STREAM PROCEDURE, 


NE. 


"BOOLEAN STREAM PROCEDURE, 
"REAL STREAM PROCEDURE. 

"INTEGER STREAM PROCEDURE, 
"INTEGER STREAM PROCEDURE. 


"BOOLEAN PROCEDURE, 
"REAL PROCEDURE, 
VINTEGER PROCEDURE, 
"INTEGER PROCEDURE, 
"BOOLEAN, 

"REAL. 

"INTEGER, 

"INTEGER, 

"BOOLEAN ARRAY, 
"WREAL ARRAY, 
"INTEGER ARRAY. 
"INTEGER ARRAY, 

w 


“NAME, 
"INTEGER NAME. 
"LABEL. 
"FIELDs 


L 8 


. ENDS 


PROCEDURE OUTPUT2¢(BeA)3 


VALUE B$ 
BOOLEAN Bs 
ARRAY AfQl3 


REGIN DEFINE PRINTERSLINERS 


LABEL FOF2, SKTP3 


OWN BOOLEAN B2,. FWDTOG, 
DEFINE MATCHCAs82 = REALCBOOLEANCA) EQV BOOLEANCB)) 
REALCNOT FALSE &3 


REAL Ti 


DEFINE LINECOUNT = TrMrNGSr2s0]43 


OWN REAL FWDSEQNO3 


IF FIRSTTIME THEN % PRINT HEADINGS AND SAVE TIMINGS, 


REGIN 


FIRSTTIME ?= FALSE 


TIMEL $= TIMEC1)$ 
DATIMES 
UPNATETIMESC1)3 


SAVETIMES(2)3 % SAVE TIMES FOR START OF XREF PRINT, 


END3 


If NOT 82 THEN 
IF RB THEN & END Of SORT ~ LIST OUT REST OF SEQ, 
Ip XREFPT #4 O THEN & WE GOT SOME TO LIST OUT 


BEGIN 


” 


a 


Be Se SR BR BA FQ FL BR BE BE AV BE BG AG BQ BQ AE BR BQ BE SR BA ae BQ HO AQ BV AQ 


32 


33 (CLASS 


WATTINGFORFWDREF? 


%110" 
¥110- 
%¥110¢ 
%110= 
%110= 
7110" 
%¥110" 
2110= 
¥110" 
%110= 
Z110° 
71108 
¥110= 
%110= 
%110= 
%110" 
%110° 
%110° 
2110= 
71108 
4110" 
%110- 
%110° 
%110= 
%110- 
%¥110" 
#142" 
%112° 


SDFB 
ADFB 


B0FB 
20FB 
2DFB 
20FB 
2DFB 


Z110= 
%110~ 
71108 
%110" 
¥110" 


2 NUMBER OF LINES PRINTED, 


%110- 
%440- 
%110= 
%110 
%110° 
¥1 10" 
%110= 
%110" 
%110= 
%¥110" 
%110" 
%1108 
%¥110= 


17084080 
17084090 
17084100 
17084110 
17084120 
17084130 
17084140 
17084150 
17084160 
17084170 
17084180 
17084182 
17084184 
17084186 
17084188 
17084190 
17084200 
17084210 
17084220 
17984230 
17084240 
17084250 
17084260 
17084270 
17084280 
17084290 
17084300 
17084400 
136 LONG» 
17085000 ¢ 
17086000 ¢ 
45 LONG» 
17087000 ¢ 
17088000 
17089000 
17090000 
17091000 


START OF SEGMENT 


C 

C 

C 

C 

* 
17091100 ¢ 
17091110 C 
17991115 C 
17091116 C€ 
17091120 C 
17091140 ¢ 
17091150 C 
17091155 C¢ 
17091160 C 
17091162 C 
17091165 C 
17091170 ¢ 
17091175 C¢ 
17091180 ¢ 
179091200 ¢ 
170912710 ¢ 
17091300 ¢ 
17091400 ¢ 
17091500 ¢ 


NOON INOQooOanannodndraiannannadannnannanannaInnnn 


NEXT SEG 


NEXT SEG 


Fe ROR CO ac 


0127:0039%2 
01427%0039%2 
0127100392 
0127%003932 
012730039%2 
0127:003932 
01273003982 
0127:0039%2 
01278003932 
0127:0039%2 
0127320039%2 
01273003932 
01427%0039%2 
012720039%2 
01273003932 
012730039382 
01272003932 
01273003932 
01273003932 
01272003932 
01274003932 
012730039%2 | 
012713003932 
01272003932 
01271003982 
0127:00393%2 
0427300392 
014273003932 
127 
012710039%2 
012740040:0 
124 
0124:0048:0 
01424:0048:0. 
0124%0048:0 
012480048:0 
01248004830 
129 
01294000070 
01291000030 
01298000030 
012920000%0 
01298000030 
0129%0000:0 
0742949000080 
01293000030 
01293000081 
01298000482 
04292000280 
012980003%2 
012792000333 
01298000434 
012980005t2 
012930005:2 
0129%0006t0 
01278000634 
0129000820 


ane 


O 


(ee © ee © ee © ee © ee 


Cy. 39 


Forms, Irs: 


a 


a) 
s 


C} 


) 


5 
i 


re 


OG Go 


Oren i 2 


O 


‘@ 


or «2 


WR 

LI 

END 
ELSE & 
ELSE %N 


TF NOT MATCHECLASTADDRESSsAL0]) AND ALOJ,REFIDNOF # O 


ArQ 
IF A 
WA 
ELSE 
IF 


EL 


ITECLINECDBLIJ 9 15*PAYL*))3 
NECOUNT = LINECOUNT + 43 


NOTHING TO LIST OUT 
OT END OF SORT 


J,REFIDNOF 2 XREFAY1(8],1DNOF THEN 
CO], TYPERFEF = FORWARDREF THEN & 
ITINGFORFWDREF t= TRUE 


ACO], TYPEREF = LBLREF THEN 3% 
BEGIN 
LBLTOG := TRUE; 
FHDSEQNO 2:3 AlO]eSEQNOFS 
END 
SE 
IF ACO],TYPEREF = DECLREF THEN 
IF WAITINGFORFWOREF THEN % THIS MUST BE IT 
BEGIN 
WATTINGFORFWDREF t= FALSES 
FWOTOG t= TRUES 
FWOSEQNO := AL0],SEQNOF3 
END 


ELSE % 1TS A NORMAL DECLARATION © NOT FORWARD 


BEGIN 


IF ACOJeREFIONOF > XREFAY1£8),IDNOF THEN 


DO 

READCOSK1is10*+XREFAYIC#]) LEOF2] 
UNT YL 

ALOJ],REFIDNOF €$ XREFAYI081,.1DNOF3 


%110= 
¥110« 
4110" 
%110- 


Z110". 


AND 

%110- 
¥110- 
%110= 
%110™ 
%110- 
%110" 
%110" 
%110" 
%110° 
%110" 
%410" 
%110= 
%110" 
%110= 
%1109 
%110" 
¥110- 
Z110= 
2110" 
%110" 
%110" 
2110 
¥110= 
Z110= 


TF ALO], REFIONOF < XREFAYIC8I],IDNOF THEN®%110@ 


GO TO SKIP3 


%110- 


IF XREFPT > O THEN % THERE IS STUFF To PRINT 


BEGIN 
IF SINGLTOG THEN 
WRITECLINEs15ePAYE*)) 
ELSE 
WRITECLINELDBLIJe15ePAYE*I)3 
LINECOUNT t= LINECOUNT + 13 
END 
FLSE 
If NOT SINGLTOG THEN 
WRITECLINE)3 
XREFPT 3= O3 
BLANKETCPaAY(*1)3 


%110" 
2110- 
%110- 
Z110= 
%110- 
%1 10" 
2110 
2110" 
%110= 
1109 
x110" 
%110% 


SETUPHEADINGCXREFAYIC*] »PAYD*I]sXREFAYIC8], 


SEGNOF ,ALO].+SEQNOFsFWNTOGsLBLTOGs 
FWOSEQNO*®IDTYPELCIF CI t= 
XREFAY169],CLASS) > TDMAX THEN IF I 
FIELDID THEN 33 ELSE O ELSE I) x 4], 
RFALCT 2 BOVID AND XREFAY1(9),£9!2] 


¥110= 
%110" 
%112" 
%1120 


1) 


REFALCCT 2 BOOTD OR | = LOCLID) AND RBOOLFAN 
CXREFAY{£91.09%4]))» XREFAYIC9],610:1193 


FWNTOG ‘= LBLTOG t= FALSE: 
WRITECLINE ® 15*PAYC #192 
LINECOUNT $= LINECOUNT + 43 
BLANKETCPAYC*])3 

END 


%110- 
Z1108 
K1j0" 
%110" 
%110= 


17094510 
17091520 
17091530 
17091600 
17091700 
17091800 
17091900 
147092000 
147092400 
17092200 
17092300 
17092400 
17092500 
17092600 
17092700 
17092800 
17092900 
17093000 
17093100 
17093200 
17093300 
17093400 
17093500 
17093600 
17093700 
17093850 
17093900 
17093950 
17094000 
17094050 
17094100 
17094150 
17094200 
17094240 


17094250. 


17094300 
17094350 
17094400 
170944410 
17094490 
17094450 
17094500 
17094550 
17094600 
17094650 
17094700 
17094800 
17094900 
17095000 
17095100 
17095300 
17095310 
17095320 
17095400 
47095500 
17095510 


17095550 


17095600 


DAIAWANAAIDAIAIOIIABGTOAINIAAIARIANOGAAAAAAANANAAARAANAAQAANDONAANAAARMAANANNMA MRA AMAA AO 


01292000824 


04292004382 


01292001674 
012930014634 


012920016%1 .... _.. 


01292004722 
042910021482 
0423930020333 
04291002533 
01298002634 
0129%0027%2 
04298002932 
01293002923 
01293003031 
0129100328 4 
01292003231 
012930032: 4 
012930034214 
01292003533 
01293003680 
0429%0037%2 
012930038:0 


01429200393 3.. 


01291003933 
01294003933 
014291004030 
01429:004234 
01292004332 
04293004722 
01291004830 
0129%0051422 
0429:005332 
01292005333 
012993005434 
01293005530 
01292005533 
0129:0059%2 
0129300603 4 
01291006523 
01293006932 
01291006922 
0129300692 
01429:0070:1 
0129:0075:2 
01291007630 
01298007732 
01293007982 
01293008133 
012930082:0 
01298008532 
01429:00883 { 
04291009132 
01293009224 
01293009532 
04293009732 
0129!040133 
0129230105!2 
01291010630 


ae 
Gas 


(4 


Cj 


C3 


() 


C) 


QO 


ELSE & 1T MUST BE A NORMAL REFERENCE E110" 17095700 c 01293010610 

os IF ALOJ,SEQNOF # LASTADDRESS,SEQNOF THEN %1108 17095750 Cc 0129:0106!0 
S) BEGIN %110" 17095800 C 012930109!2 
ADDASEQNOCALO),SEQNOF+XREFPT®ALOI.I524]>5 17995900 c¢ 01293010933 

a PAYE*])3 ¥1108 17096000 c 01298014230 
ce IF (XREFPT t= XREFPT + 1) = 11 THEN %FULL 17096100 Cc 01298014382 
mane BEGIN %1108 17096200 c 01291011434 

os WRITECLINE s 15 sPAY(¥*1)3 ¥110= 17096300 c 0129%0445!2 
i LINECOUNT t= LYNECOUNT 4+ 13 %1109 17096350 c 0429904149383 
XREFPT ts O03 %4110- 17096400 Cc 042930123:2 

ae BLANKETCPAYL*]}3 %110= 17096450 c 0129:0124:0 
V END %110= 17096500 Cc 0129:0342532 
END ¥110" 17096550 c¢ .0129:0125:2 

Ea ELSF % REFERENCE TO SAME SEQ, NO, SKIP JT 4%110" 17096575 C 01293012532 
T FLSE * THIS 18 A REFERENCE TO THE SAME SEQ, NO. = SKqP 17096600 ¢ 01293042532 
FLSE % HIT END OF IDENTIFTER FILE = JUST SKIP OVER REFERENCES 17096700 ¢ 01299042583 

ee FOF 2? Bo t= TRUES % SO SORT CAN GO TO NORMAL EOJ 4110" 17096800 C 01292012610 
a 1F NOT B THEN SKyrP! LASTADDRESS $= arO]3 %110° 17096850 ¢ 041293042830 
: END OF OUTPUT23 %110- 17096900 C 04293043030 
Se 129 1S 135 LONG» NEXT SEG 124 
ND PROCEDURE HV2CA)3 %DFB 17412000 C 0124004810 
. ARRAY ACO]s %DFB 17413000 C 012430048:0 
ee ALO) &= 3"777777777777777"3 & BIGGEST FLOATING PT, NO. ¥110" 17114000 C 0172420048:0 
VA BOOLEAN PROCEDURE COMP2CArB)3 ZDFB 17115000 C 0124:0052!0 
ARRAY A»BlOy3 ZOFB 17116000 C 0124:0052:0 

2 COMP2 t= IF ACOJ],REFIDNOF < BLOJ.REFIDNOF THEN % DIF IDS 17117000 C 0124:0052:0 
K? TRUE %¥110" 17117109 € 01241005430 
ELSE %¥110° 17117200 ¢ 01243005532 

IF ACLOJARFFIDNOF = BLO],REFIDNOF THEN 4110" 17117300 cc 01244005533 

O IF ALO],£1#47 LSS BL0],£184] THEN ¥110= 17117400 c 01241005733 
TRUE %110= 17117500 Cc 041244006024 

om ELSE £110- 17117600 C 0124:0061:2 
IF ACO],C134) = BLO),£1%4) THEN %110= 17417700 c 0124:00613:3 
IF ALOJ,SEQNOF < BlO],SEQNOF THEN 41108 17117702 C 0124006430 

2 TRUE %110° 17117704 C 04243006631 
e ELSE %110" 17117706 C 01241006733 
IF ALO],SEQNOF = BL0],SEQNOF THEN%110= 17117708 c 01243006830 

cs BOOLEANCALO].£541]) ¥110° 17117710 C 0124:0070?0 

. ELSE %110" 17117712 c 01242007133 
| FALSE %110- 17117714 C 04243007210 
7 ELSE %110= 17117720 c 01243007231 
L FALSE %110= 17117730 C 012430073:2 
ELSE: %110" 171147800 ¢ 0124:0073%2 

1m FALSE? 4110" 17117900 C 0124:007323 
a SAVETIMES(12% & SAVE TIMES FOR START OF REFERENCES SORT %110" 17117910 C 01248007630 
FYRSTT(ME t= TRUES % LET OUTPUT PROCEDURE KNOW ABOUT FYRST CAL 17117920 c 0124:007733 

Pe XREFPT!=293 REWINDCDSK2)3 ZNFB 17118000 ¢ 0124:007834 
LO SORTCOUTPUT2s INPUT2s0sHV2sCOMP2s4%6000)3 %110= 17119000 c 0124:0081:2 
sites UPNATETIMESC2)# 3 UPDATE TIMES FOR PRINTING CROSS REFERENCE%110= 17119100 c 01243010234 

a PRINTXREFSTATISTICS3 %110- 17119200 c 01241010332 
| O ENDS ZOFB 17420000 c 0124010333 
ae 124 1S 108 LONGs NEXT SEG 119 

END 3 Z0FB 17121000 C 01198003230 
O 119 1S 36 LONG» NEXT SEG 3 
END MAIN BLOCK: ¥108= 17121500 ¢c 0003!0647%2 
3. 1S 651 LONG» NEXT SEG 2 

17122000 Cc 00021003830 


© END! %NFB 


Oe 2 


Oe Os" Wr Woe. 2a) 


Ce > © 


a 


21s 42 LONGs NEXT SEG 
11s 2 LONG» NEXT SEG 
143 IS 69 LONGs NEXT SEG 


_ NUMBER OF FRRORS DETECTFD = 0, COMPILATION TIME = 380 SECONDS, ; 

PRT SyZe = 5303 TOTAL SFGMENT SIZE = 8408 WORDS$ DISK SIZE = 540 SEGS} NO. PGM, SEGS = 143 
ESTIMATED CORE STORAGE REQUIRED = 96836 WORDS: 

ESTIMATED AUXILIARY MEMORY REQUJRED = 0 WoRDS, 


NUMBER OF CARD=IMAGES PROCESSED = 7BAB. 


LABEL, OONN00000LINE 00177231? COMPILE ESPoOL/DISK ALGOL LIBRARY ALGOL /ESPOL 


C) 


OOONQDO0OLINE 


4 


001772342 EXECUTE PATCH/MERGE 


PATCH 


/MERGE 


Ch Hos oOo, cGd8 2 We. GE nC ae A AG ae 


Or “OOo OP Ga GS -G- 


CO 


? FXECUTE PATCH/MERGE 


C) 


O 


PACKET 24 

INPUT 26 CARDS FROM CRA 
TIME 1303 

DATE 77234 FRIDAY, 08/19/77 


**k BURROUGHS B5700 DCMCP MARK XV1,0,73 


#NO MESSAGES TODAY 


9 EXECUTE FATCY/MERGE 
? FILE CARD= PMCARD 
? DATA pMCARD 


AND INTRINSyCS MARK XVyT,0,00 *¥x 


See eee ee 


C) 


Moshe Susie SS 


Ox 2G" © Oro ©@ 


S:PATCH/MERGE= 1 BoJ 1303 02/06/75 
CDA IN PMCARD:PATCH/MERGE= 14 
PRDOO2? OUT O11 LINE: PATCH/MERGE= 1 
DKA OUT SER MASTERF UOO0000:PATCH/MERGE= 1 
DKA IN SFR PATCH FSPOLEPATCH/MERGF= 1 
DKA OUT SER PATCHNDF UOO0000:PATCH/MERGE= 1 
DKA REL PATCH ESPOLSPATCH/MERGF= 1 
CNA REL PMCARDSPATCH/MERGE= 1 

? FND 
DKA REL PATCHNF UOOOOOOtPATCH/MERGF= 1 
PBp002> RFI, O11 LINE 18093PATCH/MERGF= 1 
DKA REL MASTERF UOOOOOO!FPATCH/MERGF= 1 


C) Ci 


CO) 


‘3 


O 


} 


PATCH/MFRGE= 1 FOU 
FOR PATCH/MERGF= 1 


PKT#O004 


REMOVED 


1304 


PROCESS= 53 SECS» 


10 


Cy - O ‘= Cy. ty O C) C 


Fer.as, Inc. sv 


Ce Or to SO Me Wy 


Ce Oe ag 


) 


Oo Oe © 


O 


LABEL O00000000LyNF 001772312? FXECUTE PATCH/MERGE 


ere rer INPUT 


_ $@CARN CONFLICTS LISTI MFRGF ZIP 


$, 18 PaTcues FOR FSPOL 


cARD INPUT IS PMcARD 
PATCHES/ESPOL 1S NOT ON p1SK 
PATCH /ESPOL WILL BE MERGED 


S*COMPILE ESPOL/ZDISK ALGOL LIBRARY 
$* ALGOL STACK = 1000 
$*ALGOL FIle TAPE = SYMROL/ESPOL DISK SERIAL 


$* FILE LINE = LINE PRINT OR BACK UP 


$x DATA CARN 
3” weeks THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC ¥xxx% 


_ STAPE... 


SSET LISTA SINGLE FORMAT PRT XREF 


SRESET LIST PRT XREF FORMAT 


S#PATCH NUMBER 191 FOR ESPOL CONTAINS 2 CARDS 


IF t = INFOCGTiI» Gre] THEN REGIN 
2= 03; GO TO cOMPLETF ENn? 


$tTHIS PATCH FLEMINATES a COMPILER LOOP CAUSEN WHEN A FORMAL PARAMETER 
_$t TN A PROCEDURE DFCLARATION IS NOT JNDICATEN IN THE SPECIFICATION 


$: LIST. 


BURROUGHS B«5700 PATCH/MERGE PROGRAM MARK XVI,0.00 


FRIDAYs 08/49/77, 


02877010 
02877020 


BOO ROGGE GOR GR GOI ROR GIR i OR ak kkk tea ak i tok 


“S#PATCH NUMRER 102 FOR FSPOL CONTAINS 1 CARD 


IF BUP # BUP:=BUP™ TakKECRUP + 1).PURPT THEN 


$: THIS PATCH ELEMINATES a COMPILER LOOP CAUSED WHEN THE FORMAL 
$: PARAMETER IN A PROCEDURE DECLARATION IS FOLLOWED BY A COMMA. 


S#PATCH NUMBER 103 FOR FSPOL CONTAINS 2 CARDS 


14088000 


BDO OIRO IGG IG OIG AUR IIORUR IOI GIGI GE RCI Arik kei kok kK a ak ek ok 


vwuVUVUYV um 


v 


vwVd.~—.,v 


1o1 


101 
101 
101 
101 
101 
101 


102 


102 
102 
102 
102 


103 


4303 PM, 


PATCH 


OOO ORIG ORR IORI OR IGOR IR IIGIG IK FOI GIGI IG I ICI IOI GI III ACG k ai ede kK ak ake ae ae 


/MERGE 


C) 


() 


t) 


(} 


Oe 


O 


OQ. 


ay 


Inc. 


G @ Goo 


_33 Porms, 


©) 


& 


FOUNDS3 
TF OPTNX +4>0PARS]T7E THEN FLAG¢602) ELSE % TOO MANY USER OPTIONS 
$¢ THIS PATCH CORRECTS an INVALIO INDEX ConDITIon CAUSED WHEN TOO MANY 


$t USER OPTIONS HAVE BEEN SPECIFIED, 


BRI OOOO OO OIG III GOR OR RG RG IGIGIO GR OK EGR sod aoa 


_ S#PATCH NUMBER 104 FOR ESPOL CONTAINS 4 CARDS 


FLAG €120)3 


FCR#= CLCRt=MKABSC(CBUFFI9]9)793 


IF LISTER THEN PRINTCARD? 
FCORs= (LCRe=MKABSC(TRUFFL91]))"™9 END; 
$:THIS PATCH CORRECTS A PROBLEM WHERE A PATCH CarRD IS LOST WHEN BEGIN 
S$:END PAIRS ARE NOT MATCHED AND PATCH CARD SEQUENCE NUMBERS ARF GREATER 
$:THAN THE SEQUENCE NUMRER OF THE "FND."CARD IN THE SOURCE FILE. 


BR ak ORIG RK ICG OI OI IGG GR IG IORI OK a IR aK gk ka dai ak ak ae ak 


$# PATCH NUMBER 105 FOR ESPOL CONTAINS 11 CARDS 


LABEL ENDREADTAPEs FOFT: 
READ ¢TAPEs 10, TBUFFE*1)PEOFTI3 
LCORt=sMKABS( TBUFFL9})3 


Go To EnDREADTAPE? 


EoFT: 

DEFINFARRAYC 25] :="NnsENne"e "ENE 124325)3 
DEFINE ARRAYL34]3="9999" g "9999"(1:25323);3 
TLeRs= MKags(nrFINEARRayl341); 

PUTSEQNO Corr INEARRAYE 33), TLCR™8)3 
TURNONSTOPLIGHTC"R", TheR=8)3 

ENNDREADTAPr: 


Sittyrs PATcy CORRECTS AN FOF NO LABEL FNCOUNTFRED WHEN THE SOURCE 


S$? "END ™® CARD 1S PATCHED OVER AND THE PATCH DECK CONTAINS CARD SEQUENCE 
SiNUMBERS GREATER THAN THE SEQUENCE NUMBER OF THE "FND.* CARD IN THE 


 StSOURCE FILE, 


BORO SRO IO IG IOI OOO IOI GI dO aR OI IG CRG ge ae 


$#PATCH NUMRER 106 FOR rSPOL CONTAINS 2 CARDS, 
IF FRRNUM = 200 THEN I s= 7/703 % SEGMENT 700 LARGE, 
IF ERRNUM = 611 THEN I := 1/03 % ERRMAX EXCEEDED, 


$$ DATE 6/27/75 
$3 BY MWG = MSA CENTRAL* 


$$ THIS pATCH CAUSES ESpol, Ta ABORT WITH A DIVIDE BY ZERO ERROR For 


$3 THF ERRORS "SEGMENT Too LARGE" AnD “ERROR LIMIT EXCEEDED". 


S#PaTcH NUMRFR 107 FOR rsSPOL CONTAINS 12 CaRDSe 


02315000 
02316000 


07025000 
07025010 
07025020 
07025030 


02201510 
02201750 
02202000 
02202010 
02202020 
02202030 
02202040 
02202050 
02202060 
02202070 
02202080 


00006000 


05107100 
95107200 
99990000 
99990100 
99990200 
99990300 


00000000 


mej vDuvuUVVUOVUDU 


vuvpuvuVvVUVVVVVV VV VU 


vu vv UG 


403 
403 
103 
103 
103 


104 


104 
104 
104 
104 
104 
104 
104 
104 


105 


105 
105 
105 


105 


105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 


106 


106 
106 
106 
196 
106 
106 


107 


Cy 


C) 


&) 


— 


O 


a 


Ch As. Gs On 


QO 


) 


LABFL FXITeNEXTCHK 


06315000 


te STePy = RTRRKET THEN % We wrbl TAKE cARE OF THE RrS06320000 


IF ¢FYRST t= ELBATGCI"3),ANDRESS) x 
(THIRD = ELBATrIiw11,ADDRESS) # O THEN 
BEGIN 
SECOND t= 48 = THIRDS % SOURCE IS RIGHT JUST, 
GO TO NEXTCHKS 
END 
ELSF % BAD BITSs FALL THROUGH To FRROR, 
ELSE % MAYBE A COLON, 
IF pLCLASS = COLON THEN 4 
_NEXTCHKs IF FIRST + THIRD < 48 THEN % SO FaR SO GOOD, 
: DATE 1/22/76 
; BY JTC = MSA CENTRAL 
$i THrS PATCH ALTERS Tur SYNTAX FOR THE CONCATENATE OPERATOR TO ALLOW 
$% THE SECOND VALUE IN THE CONCAT, 4ST TO BE OmITTED ¢THE 
$3 STARTING BIT NUMBER IN THE SogURCE WoRD) IF THE RIGHT@=MQST 
$: N BITS ARE BEING SELECTED FROM THF SOURCE WORDes THUS 


$3 T= ~ ag J £2;20) 


$3 1S THE SaME AS 
$$ 1 t= 7 &@ J £2328:20) 
$3 THrS 1S eSPFCrALLY CONVENTENT FOR ESPOL SINCE THrS ALLOWS SOME 
$t FIELD DEFINES To BE USED IN CONCATENATE EXPRESSTONS, THUS JF WE 
$3 HAVE THE FOLLOWING FYELD DEFINITION 
$3 2 PBIT = [2:1] 
$t WE CaN USE THE SAME FIELD DEFINITION IN qa GONCATENATE STATEMENT 
$3: AS FOLLOWS 

: DESC := DESC & 1 PBIT 


$ NOTE: FUTURE pATCHES To THE mCp AND INTRINSICS WILL TAKE ADVANTAGE 
$2: oF THIS PATCH, 


06320100 
06320200 
06390300 
06320400 
06320500 
06320600 
06320700 
06320800 
06320900 
06327000 
99990000 
99990100 
99990900 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 


99991000 
99991100 


99991200 
999914300 
99991400 
99991500 
999914600 
99991700 
99991800 
99991900 
99992000 
99992100 
99992200 
99992300 
99992400 
99992500 
99992600 
99992700 


$#PaTcH NUMRER 108 FOR FSPOL CONTAINS 252 caRnS 0000000n 
XReFRIT = 26H, 01001170 

BENDBIT = 27#, 01001171 
USPROPYNX = 2883 01001172 

XRee = OPT]ONWORHD.(XREFRIT311 #, 01001464 

BEND = OPTJONWORD,£BENDBIT#174#>5 01001462 

DEFINE XREFINFOrXREF INFO? sXREFINFOO]= 01001750 
XINFOrXREFINFO1 sCAREFINFOOIDIV 278. 01001760 

XMARK= IF XREF THEN XREFAYOPXREFPT=7])ef121]«4#3 01001770 

ARRAY XREFAY2(0! 29 7*XREFAY I COMLOJ]*XINFOLO? 31202129743 01007100 
2DFB01007200 


INTEGER XREFPT®XLUNE 


vu VuVUV UV VM VBE VT VV VV VV Ve PVP Vee UD UC BET eT UU UU BP Be eb oUF 


u 


vuvuvuVV VV 


107 
107 
107 
107 
107 
197 
107 
107 
107 
107 
107 
107 
107 
107 
107 
407 
107 
107 
107 
107 
107 
107 
107 
107 


107 


107 
407 
107 
{07 
107 
107 
107 
107 
107 
107 
107 
107 
197 
107 
107 


108 


108 
108 
108 
108 
408 
108 
108 
408 
408 
108 


1 


C) 


©) 


ARRAY REGINSTACK(O:?55]3 INTEGER RSPOINT; 
BOOLEAN DEFININGS 
FILE DSKL DISK SERTAL €2038161(2910%30);3 
ere FILE DSK2 DISK SERIAL £20:450](62+30+30)3 
PROCEDURE BEGINPRINT? 


BEGIN 
STREAM PROCEDURE STUFF CNe193 VALUE N3 
BEGIN 
Ole=b: DSt=a LIT ™ "ss STs=bs 0S,=13 WDSs 
tetas oe _ $lsebOc Ny ps:58 Ec: 
ENns 


STUFF CRFGINSTACKERSPOINTI] +LIN)$ 
IF NOHPADING THEN DATIMEs WRITELINES 
ENn RFGINPRINTS 


CARNNUMBER? =CONVCTNFOPLASTSEOROWs LASTSEQUFNCE@1 95558)3 


CARDNUMBER?=1F SEQTOG THEN TOTALNO+ADDVALUE ELSE 
CONVE INFOCLASTSEQROW*SLASTSEQUENCE=419598)3 
IF 9 = "4XREFO" THEN BEGIN SWITCHITCXREFBIT)3 IF BOOLEANCXMODE) 
DEFINING t= BOnLEANCREALCDEFINING)&101247241)3 


GO AGAIN END; 


piste tiMeBe, Gan Got IF 9 = "4BENDO" THEN BEGIN SWITCHITCBENDBIT)$ Go AGAIN END; 


IF XREF THEN 
IF GT1#1 THEN 
asthe ae BEGIN 
IF XREFPT=30 THEN 
BEGIN 
WRITe ¢NSK2s30sXREFAY2C*J)3 
XREFpT « 03 
EnD3 


XREFPT © XREFPT#1; 
FNn3 
Ip NOT neEFINING THEN. 
IF TeChaSS = BFGINV THEN 


BFEGINSTACKEBSPOINT:=BSPOINT+1]25CARDNUMBER ELSE 


te TeCLASS = FNDV TyFN 


BEGIN 
IF LISTER THEN TF BEND THEN BEGINPRINTS3 
bg fe = BSPOINTt=BSPOINT = REAL CBSPOINT > 023 % PREVENT 
END? 
"AHRENDOM SOs % 50° 51 
nota Ce ed "AXREF ONS Oe % 599 53 


“STREAM PROCEDURE XREFMOVECS»CeSNeSQoleD)3 
VALUE CoL3 


cohen te oe _ . BEGIN 
D:D; 
DS:= 8 LIT™ "3 

NP Rien a Sts=D3 .  % 
DSi=8 WOS3 
DrisD3 

Sais nn ootat IOs eat _ Stews? _. 
ST s=SI] +33 
DS:=C CHR3 

2 7 NT:FD3 
NISHT+603 
STr=SNs3 


01007600 
01007650 
01561085 
01561087 
02196510 
02196520 
02196530 
0219654n 
0219655n 
02196560 
02196570 
02196580 
02196590 
02196610 
02214260 
02228000 
02234800 
02234900 
THENO2419100 
02419110 
02419120 
02419200 
02882100 
02882200 
02882300 
02882400 
02882500 
02882600 
02882700 
02882800 


XREFAYOLXpEFPT ]©CARDNUMBERAXREF [NFOLCGT1*+GT21£99:36:12)3 02882900 


02882910 
02882920 
02916100 
02910200 
02910300 
02910400 
02910500 
029140600 


INDEX 02910700 


02910800 

09251285 

09251286 
S0FB13301100 
2DFB13301130 
4DFB13301160 
40FB13301190 
Z2DFB13301220 
ADFB13301250 
SOF B13301280 
%0FB133901310 
2DFB13301340 
®0FB13301370 
ADFBL3301400 
Z90F 813301430 
40FR813301460 
ZNFRL3301490 


VUVVIVIVVVVV VV VV VBP VV VV VV VU BV VV UO CP UC UU UV VU UU VU VU CU VU VU DV VU Ve VU Ve BTV VUE Ve PP BU 


oan a 


C} 


C) 


C) 


‘eS 


C 


O 


Ferms, Inc 


} 


Business 


sek 


) 


Or 9 


O 


O 


END; 


“BEGIN 
Meer NO ver nee yu Ey COUNT: SGNO »CARDNUMBER» 
7 ee XREFIMFOCNEXTINFOsLINKR*NEXTINFO,LINKC]3 


END; 


ns:s4 oF 
S13=SQ 
p$:=8 
$1:=L0 
OStsWDS;3 


IF XREF AND CNoT PTOG OR STREAMTOG) THEN 


XREFAY1 53 
WRITECOSKL*10*XREFAYIC eI )3 


IF XREF AND PTOG THEN 
KREFPT¢«XRFFPT@REALCELBATECII#093 & GET 


Sees, SVOIDT 1334646105 


DEFINING t= BONLEANCREALCDEFINING) & {C478a734 
DEFINING $= BOnLEANCREALCDEFINING) & OL47%an721 


ee so) 
YMARKS 
TF TALL.FORMALNAMP THEN 
Ee ane ene —. FNnOFTTALL: 
TF XREF OR DEFINING  C1s¢) THEN 


REGIN nFFING LSS= <#eGTR=>dteNp Oe Zee bp Oac#; 


NEFINE yReEINFOsINrOds 


CLOSE PrARD,RELFASE 33 
CLOSECTAPE,RELEASE)3 


LOCK¢NENTAPED} 


WRITE C),INECPAGEJ)3 


FoR XREFPT$=XREFPT STEP 1 UNTIL 29 DO XREFAY2CXREFPTIi= 


WRITECOSK2*30*XREFAY2[ %])3 


=XLUNSSXLUNF1» 


° 
, 
° 
’ 


}) 
}) 


TOTALNO©REALCXILUN >500)x10004+3000+XLUN3 


XREFPTeXALUNGOS? 
eho eu aegis. doe 


ARRAY ALCOJs3 
sitesi eee sy ok. 32e EOI oe 
LABEL LeEoFs 


READCOSK1,tOeAC¥IICEOF]3 


Boe cates ae SEIS dhe ; _GO To 3 


EaFs INPUT] := TRUE; 
REWINDCDSK193 


sila Bea GM Oot ay uch, Dieta os . 4 lot 


FNn3 


PROcFNURE OUTPHTIC RAD? 


ere ee,  VALUF B3 
ROOLEAN RB 
ARRAY ArO}3 
eee heals EY ys Aaah Atal, Ao _ BEGIN 
IF B THEN 
REWIND (DSK4) 
i atthe takes ae il nil _. . ELSE. 
BEGIN 


ALOIS=XREFINFOTALII].LINKR* ALI] e INKCI? 
aoe n Te a WRITECDSK1L9109AC%I)3 


FND $s 
END; 


BOOLEAN PROCEDURE INPUTICA)S 


=XLUNS=XLUNF13 


%nFR13301520 
¥NFRL3301610 
¥0FB13301640 
XOFB13301670 
¥DFB13301700 
%DFB13301730 

13310100 
%DFB13310200 
%DFB13310300 
%DFB13310400 

13310450 
%0FB13310500 
%0FB13310600 

13341200 


RID OF LAST CREF 13341300 


13366004 
14255500 
1426B500 
15092000 
15092010 
15092020 
16495210 
16495300 
¥OFR17002000 
17002005 
17002490 
17002500 
17002540 
17002520 


1000000003 17003000 


ADFBL7004000 

17004500 
20FB17004600 
2DFB17005000 
2N0FB17006000 
20FB17007000 
2DFR17008000 
20FB17009000 
ADFB17010000 
20FB17011000 
DFRBL7012000 
2DFB1701300n 
SOF B17014000 
SDF R17015000 
%or817016000 
oF B17017000 
ZNFB17018000 
%¥OFB17019000 


%DFB17020000 .- 


%DFB17021000 
2DFB17022000 
2DFB17023000 
ZDFB17024000 
%0FB17025000 
%DFB17026000 
ZDFR17027000 
2DFB17028000 


VPuUVVDVV VV VV VP VV VP Ve Ve VU UU CU UO UU BP UU UC BP UU BV VU VP VU UU UP UP UCU eV Ve eC UU ee Be eT Ue UB UO 


1908 
108 
108 
108 
198 
108 
108 
108 
108 
1n8 
108 
108 
108 
108 
198 
108 
108 
i068 
198 
108 
108 
108 
108 
108 
108 
108 
408 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
106 
108 
108 
108 
108 
108 
108 
708 
108 
108 
108 
108 
108 
108 


C) 


C1) 


(© a ae © ae 2) 


C) 


ey ‘@) () O Cy to 


Cy 363 


7 


1427 


sv 


on 7 RL 


iis or eee 


e- © 


2 Forms, Inc 


O 


} 


—~, 


) 


Cr 


O 


0) 


O 


Cj 


BOOLEAN STREAM PROCEDURE COMPS1(ArB): 
REGIN 
STiFA;3 
N1:=B3 
IF 63 $C LSS DC THEN TALLY?=1? 
COMPS;t=TALLY3 
nee, th te “Re Ge _. ENDS. 
STREAM PROCEDURE HVS1CA)3 
REGIN 
eee eS eh ete, ee  nisBage . = 
nsis8 Lip "93 
STtFa3 
nSt= 7 wos; 
PND} 
BOOLEAN PROCEDURF COMP4¢A,B)3 
Beet ee ey . . ARRAY A»Brols 
COMP1!=COMPS4 (AB); 
PROCEDURE HV1CA)3 
Siw 3 24 ; ARRAY A{Q]} 
HVS1CA9; 
XLUN# 203 
REWINDCDSK193 
SORTCOUTPUTIs I NPUT1 »O*HV1+COMPIL*1O*TOTALNO 3 


END: 
BEGIN 
STREAM PROCEDURE PUPCSsD);3 


’ 
$ 
OS:=7 WOSs acDSt=Aa LIT " 993 
__$VolDT 47054551 
END$ 
STREAM PROCEDURE PUPIS*D)3 


etn attra, Suh tat: BEGIN 


SJ+323 STs357+283 
2\bey * s. DSte4 CHR$ pSts? LIT t ¥M 
eS ele DStaLyT tet, OSs238 LIT & 3 
ENN? 
STREAM PROCEDURE PUPA2CSTAR*SeCel)3 
VALUE STAR+Sea3 
REGIN 
NLt=D3 
CCOTtSDIT+10)5 


STARCDI«DI"1s DSeLITM*")3 


STARCHIS=D0171s HSsSbit "#"); 
FND$ 
STREAM PROCEDURE RLANKFTCA)3 
PEGIN 
DrisA3 
Ste 8 LIT tr eg 


F] 
DS:= 14 WDS; 


ARRAY PaYlO:17]3 
BOOLFAN PROcFoYRE INPUT2CaAd3 


ZDFR17029000 
4DFR17030000 
ZDFR17031000 
%DFB17032000 
%0FB17033000 
SDF B17034000 
2DFB17035000 
2DFB17036000 
2DFB17037000 
ZprR17038000 
4pFR17039000 
ZDFR17040000 
ZDFB17041000 
¥DFB17042000 
%DFB17042100 
ZDFB170427200 
%DFB17042300 
ZDFB17042400 
%D0FB17042500 
2DFB17042600 
%DFB17043000 
S0FB17044000 
ZDFB17045000 
SDFB17046000 
ZDFR17047000 
SDFB17048000 
ZDFB17049000 
%DFB17050000 
%DFB17051000 

17052000 

17053000 
2DFB17055000 

17055100 

17055200 

17055300 

17055400 

17055500 

17955550 

17056000 

17056500 
ZDFB17057000 
3DFB17058000 

17059000 

17059100 
2DFB17060000 
Z0FB17061000 

17061100 
BOF R17062000 
%DFB17063000 
¥OFB17064000 
¥DFB17065000 
2DFB17066000 
%DFB17067000 
2DFB17068000 
2DFB17069000 
ZpFB17069500 
%ora17070000 


VVGV VU VV VV VV VV VV VV VU OC VT VU UV OV VU VV CU VU VU UBT UC UC VC UC Uv UC TU UV VT Ve VU Ue Pe UU UU 


108 
108 
108 
108 
198 
108 
108 
108 
108 


108 
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108 
108 
108 
108 
108 
198 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
198 
198 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
106 
108 
198 
108 
108 
108 
108 


() 


O 


Cie se SC. A Se 


o) 


C) 


ARRay arOl3 
REGTN 
LABEL LeFOF? 
DEFINE T=XtUN#e3 
IF XREFPT¢=XREFPIT+1=30 THEN 
BEGIN 
READCDSK2e 30eXREFAYPCeIILEOF I]: 
XREFPT:=03 
END; ; 
IF (€ I s:3XREFAY2CXREFPTI).£21:27) GTR 99999999 THEN GO TO 
ACO]:= TRXREFINFOLCT el 9:4) 51,013¢8)10 9:36;12)3 
GO TO L; 
EOF: INPUT22=TRUFS 
BLANKETCPAY)3 


%4OFB17071000 
%¥DFB17072000 
¥DFB17073000 
%20FB17073100 
40FBL7074000 
4DFB17075000 
SDFB17076000 
4DFB17077000 
®DFB17078000 
EOF 317079000 
2NFR17080000 
40F 817081000 
20FB17082000 
Z2D0FB17083000 


XREFAYIC9I]:=713 XREFPT*O3 SDFB17084000 

Li Z0FB17085000 
END3 2DFB17086000 
PROCEDURE QUTPUTPCB9A): 2DFB17087000 
VALUE B; SDF B17088000 
ROOLFAN R¢ %0FB17089000 

aARRay alOl; | oF R17090000 

ReatN neriNe PRrNteR=LiNne#; Zorp17091000 

LAREL LOOP, FOF23 17091100 

OWN BOOLEAN B23 17091110 
LABEL DUN3 17091200 

IF NOT R2 THEN 17091210 

1F B THEN 20FB17092000 
WRITECPRINTER?®15*PAY[*]) 2DFB17093000 

ELSE %0FB17094000 

IF LASTADDRESS # LASTANDRESS«ALO] AND LASTADDRESS.»«L9 :12]#% 0 THEN 17094100 
iz BEGIN 20FB17095000 
LOOP: 2DFB17095050 
IF jaCOl].,6 9:12) GTR XREFAY1£9) THEN %DFB17095100 

BEGIN 20FR17095200 

$ 17096000 
WRITE CPRINTFR,15ePAYC%I)3 17097000 

_ §$ 17098000 
BLANKETCPAY )3 XREFPT:=03 17099000 
READCDSK1,10eXREFAYiC* 1) LEOF2]3 17099100 
PUPCXREFAY4»PAY)3 17099200 
WRITECPRINTERECOBLI)3 17099900 
WRITECPRINTER® 10*PAY( #193 ZDFB17100000 
PUPLCXREFAYI* PAY)? 17100100 
WRITE CPRINTEREDBLIelLOePAYEL*J 93 17100200 
RLANKETCPAY 3 Zorp17101000 

40 LOOPS Nr B17101100 

END3 ZDFR17102000 

DUNS 171021400 
PUPa¢LASTADDRESS «< OsLASTADDRESS,£212273217103000 

XREFPT»PAY(11)3 17103010 

IF XREFpTs=XREFPT+41 = 14 THEN 17103100 

BEGIN Z0FB17103200 

XREFPT!£=03 2D0FB17103300 
WRITECPRINTER® 15 pAYCxl)3 %DFB17103400 
BLANKETCPAY)}3 %0FB17103500 

FND3 20FB17103600 

END3 4nFR17110000 


CVV VVVVVVVU VV VVV VV VV VU VV VV VU VU UV UU VU VU UBT VU VT VP UV VT VU VU VU TV TV UU UB UU 
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108 
108 
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108 
108 
108 
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108 
108 
108 
108 
108 
108 
108 
108 
108 
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408 
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108 
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198 
108 
108 
108 


Ss 


C) ne ee Cy. C ©) OC C) 


C) cy 


{) () C3 


C3 


- 


C).  -©* <6 


IF FALSE THEN fOP2: RB2:STRUE3 17110500 

PNDS %0FB17111000 

PROCEDURE HV2C€q)3 40FB17112000 

ARRAY ALO]; SDF BL7113000 
AC0J]$=5497558) 3887; 2DFB17114000 

BOOLEAN PROCEDURE COMP2CA,B)3 SDF B17115000 

ARRAY A®BI0]3 40F817116000 

CoMP2« ABSCALO]) LEQ ABSCBIO]); 17117000 
XREFPT:=293 REWIND(DSK2);3 %DOFB17118000 

— SORTCOUTPUT2> INPUT2*O*HV2sCOMP2>1s5TOTALNO )3 ZDFB17119000 

END; 40FB17120000 
END? 4DFR17121000 

. END MATIN BLOCKS 17121500 

END, EOF B17122000 

$i BY JTC = MSC DETROYT 99990000 
BGO I IOI OR IG HOG OG CK GR ORIG GIG OIG dado tok EK 99990100 


S#PATCH NUMBER 110 FOR FSPOL CONTAINS 503 CARDS 00000000 
$ VOInT 01001771 01001750 
FRC OK OR IGOR IORI GOR IO GIG OIG IR RIOR RR GK RU dk ok kok ak do 01007005 
4 X Ree STUFF 01007010 
FOR ROO GGG OG GIG ICIS I IO GK aod 01007045 
4 01007020 
ARRAY 01007025 
XREFAY260:29], y ARRAY OF ONE WORD REFERENCE RECORDS, 01007030 

% THE LAYOUT OF EACH WoRD 15S 01007035 

¥ 04007040 

% 2€135] TYPE OF REFERENCE 01007045 

% = ) FOR FORWARD DECL 01007050 

x = 1 FOR LaREL OCCURENCE 0100705) 

yx = 2 FOR NORMAL peEch 01007055 

4 = 4 FOR NORMaL REFERENCE 01007060 

Y = 5 FOR ASSIGNMENT 01007065 

¥ 01007070 

¥ NOTE: THE LOWER ORDER BIT 04007075 

4 OF THIS FIELD IS ON 01007080 

% IF YoU WANT STARS 01007085 

4 AROUND THIS REFERENCE 01007090 

4 In THE XREF 01007095 

a 01007100 

% 26:15] IDENTIFIER ID) NO« 91007105 

% THIS IS A UNIQUE NUMBER THAT 01007110 

% IS aSSIGNED WHEN THE 01007115 

% IDENTIFIER IS ENCOUNTERE 01007120 

% FOR THE FIRST TIME. 01007125 

¢ 01007130 

% ef2t!27) SEQUENCE NUMBER 01007135 

awed: Sa titi es ~ 4 : 01007140 
XREFAY1(O:9]» % RECORD BUFFER AREA FOR WRITING OUT THE 01007145 

%¥ NAME INFORMATION RECORDS» oNE RECORD 01007150 

%2 1S WRITTEN FOR EACH IDENTIFIER IN THE SYMBOL 01007155 

*¥ TABLE WHEN THE IDENTIFIER IS PURGED FROM THE 01007160 

% SYMBOL TAALE»® TeEes WHEN LeavING THE RLOCK 01007165 


vuvVVVvVVYVV Ve Ve UU UG 


m5] 


VvIGVIV VVUVVVVVV PV VV Ve VB UC UU BT VP OC TUT ee UP UC UU OU 


108 
108 
108 
108 


108 
108 
108 
108 


110 
110 
110 
110 
110 


C1) C) C) C) (3. 71) Ce Che oe C) 


C) Cy 4 () C) 


() 


Cr. 2) 


C} 


XINFOLO?31°0:127]; 


% 


% 
% 
x 
% 
% 
% 
x 


yY 


% 


4 
% 
a 
a 


% 
4 
% 
% 
% 
% 
z 
x 
x 
% 
% 
% 
% 
% 
% 
% 
& 
% 
% 
% 
% 
rs 
7 
& 
# 
A 
4 
% 
% 
% 
% 
% 
% 
% 
% 
é 
a 
a 
% 


IN WHICH THE IDENTIFIER IS DFCLARFDN, 01007170 
01007175 

THE LAYOUT OF EACW RECORD 7S? 01007180 
04007185 

WORDS 0”7 THE IDENTTFIER WITH BLANK 01007190 

FILL ON THE RIGHT 01007195 

01007200 

WoRD B 01007205 
7C24212] SEGMENT NUMBER IN WHICH 01007210 

THIS IDENTIFIER WAS DECLAREDO1007215 

01007220 

0£33:15] IDENTIFIER In> NO, 01007225 
01007230 

WORD 9 ELBAT WORD 01007235 
01007240 

THIS ARRAY CONTAINS ONE ENTRY FOR EACH ENTRY 01007245 
In THE INFO TABLE. IF YOU HAVE THE INDEX 01007250 
oF THE EUBAT WORD For aN IDENTIFIER IN 01007255 
THE INFO TaARLE YOU CaN FIND THE XINFO WORD 01007260 
FOR THE InENTIFIER RY REFERRING TO: 01007265 
01007270 

XINFOLINDEXeLINKR, INDE X.LINKe piv 2] ; 01007275 
019007280 

FACH ENTRy CONTAINS? 01007285 
; 01007290 
6£21212) SEGMENT NUMBER JN WHICH 01007295 

THIS [DENTIFIER WAS DECL01007300 

01007305 

°£33'15] IDENTIFIER ID, NOe 01007310 


IF THIS IDe NOw IS ZERO 01007315 
THEN XREF WAS NOT ON 01007320 
AT THE TIME THE IDENT 01007325 


WAS DECLARED AND ALL 01007330 

2 FUTURF REFERENCES WILL 01007335 

BE nNISCARDEDs 01007340 

01007345 

INTEGER. 01007350 
XREFPTs CONTAINS INDEX OF NEXT AVAILABLE SLOT IN 01007355 
XREFAY2, WHEN THIS BECOMES GREATER 01007360 

THAN 30 THE CURRENT ARRAY 1S DUMPED To DISK 01007365 

AND XREFPT IS RESET To ZERQ, 01007370 

01007375 

XLUN3 THIS VARTABLE CONTROLS THE ASSIGNING OF 01007380 
The NOe TO IMDENTIFIERS. IT IS INCREMENTED 01007385 

FACH TIME ~ NEW INENTIFIER IS ENCOUNTERED. 01007390 

aah Ai, 9 eae 01007395 
DEFINE 01007400 
SFGNOF r2itiay#, FrELDS JN XINFO ENTREES ANN WORD 8 OF 01007405 
_TDNOF. 63331574, INENTIFIER RECORDS, 01007410 
01,0074145 

TYPEREF f1t5 yt, FIELOS oF REFERENCE WoRDS 01007420 

. ~-REFYDNOF =£63151]#> 01007425 
SEQNOF C21:27I]#» 01007430 

4 01007435 

_ XREFITCINDEX*SEQNO*REFTYPE) = 4 DEFINE To AND INFO TO REF TABLE 01007440 
BEGIN TF XREF THEN CROSSREFITCINDEX*+SEQNO*REFTYPES3 END#? 01007445 

% 01007450 


pee ee ee ee 


ee pe 
oo cocoococo°c;o°0 
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© 


Ch AIS ee EC a 


C) 


14127 


C) 


O 


Fornis, Inc sv 


CO oO 


O 


) 


On Oe SQ) 


OC) 


Cee mee © 


XMARKCREF TYPE) FFINE TO CHANGE LaSt FNTRY_IN REF TARLE 01007455 

BrGItN te XREF THEN TREE aY2EXREFPTAL Te TYPE RES $= ReeFTYPE ENDHs 01007460 

z 01007465 

wo... .. XREFDUMP@ | NDEX) = x DEFINE TO DUMP SYMBOL TABLF NFO FOR 1DENTIFIERO1007470 
BFGIN TF DEFINING. £124) THEN CROSSREFDUMPE INDEX)? END#, 01007475 

% ‘ 01007480 

wee ee on XREFINFOCINDEX) = % DEFINE To TRANSLATE INFO ROW AND CoLUMN To 01007481 
XINFOCCINDEXy)eLINKReCINDEX)«LINKC DIV 2145 % XINFO ROW AND COL 01007482 

% 01007483 

eee a -- FORWARDRER = OF, %¥ neFINES FOR nIFFERENT REFERENCE TYPES 01007485 
LaLREF = it, ¥, 01007486 

NECLRee = Qits % 01007490 

en a? - NORMALREF = 4#, x 01007495 
ASS|GNREF = 5#3 x 91007500 

SVOTDT 01723000 

wee ee 8 BORO OO GIR COG or GGG Gi oi 02001605 
a 02001610 

& MISCELLANEOUS CROSS REFERENCE PROCEDURES 92001615 

eeeetest teers a ee .. 02001620 
$ VOINT 02001834 02001625 

Sco heRe tree Chere at heat e ee Tern e sore r yan e tase rae cxmeegemer ene yan] a0 

eae hcuies xt eam ek 02001635 
PROF AURE: CROSSREFITCINNFXs SEONOs RETYPE) s 02001640 

VALUE INnrXeSPONO,ReeryPe3 02001645 

—... ... Real ork, SeQn0,ReeryPrs 02001450 
BEGIN 02001655 

IF XREFINFOFINDEXJ.IDNOF # 0 THEN & SAVE 02001660 

BEGIN 02001665 

IF XREFPT > 29 THEN % NO SLOTS LEFT IN ARRAYe WRITE IT QUT. 02001670 

BEGIN 02001675 

een nee  WRITECDSK2s30eXREFAY 20 e1])3 02001680 
XREFPr 3= 03 02001685 

FNDs 02001690 

PE Bi ates _XREFAY2CXREFPT] t= SFONO 8 ReeTyPe TYPERFE a XREFINFOLINDFX] 02001695 
REF IDNOF? 02001700 

XReEePT t= XREFPT + 143 &% FVEN THOUGH THE ARRAY MAY Be FULL NOW WE 02001705 

REE Te eat eee % CANT WRITE YT OUT BECAUSE SomE ROUTINES 02001710 
* WILL 1,00K BACK AT THE ENTRY WE JUST PUT 02001715 

% IN AND FIX IT Up, 02001720 

es _ END} 02001725 
ae OF CROSSREFIT3 02001730 

02001735 

sant te, PAO ERURE CROSSREFDUMPCINDEX)3 02001740 
VALUE INDEX 02001745 

REAL INDEX; 02001750 

Saat. a _ BEGIN. 02001755 
STREAM PROCEDURE MOVEYRFFINFOCSeDeN)D3 02001760 

VALUE N; 02001765 

eee BEGIN 02001770 
Sy t= D$ DI t= DF DS t= B LIT » "S$ DS ss 7 WOS# % BLANK RECORD 02001775 

St s:= S3 SJ] := SI + 33 OL t= D3 OS := N CHR: % MOVE IDENTIFIER 02004780 

Sed es inky ee END OF MOVEXREF INFO? 02001785 
& 02001790 

IF XRpEFINFOCINDEX],IDNaF # 0 THEN &% DUMP IT 02001795 

_.. ........ BEGIN 02001800 
MOVEXREFINFOCINFOLIND EX eLINKRe INDEX eLINKe ely» KXREFAYIC*]» 02001805 


TAKECINDEX4+1).£12:61)3 


02001810 


} 


( 


Cy Cy 
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Ch 9) 


QO O 


Cy AP 
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XREFAYiC£8] t= XREFINFOr INDEX]? 
XREFAYIC9] t= TAKECINDEX)? % FLBAT WORD 
WRITE ¢DSK4 94 0sXREFAY4 7 *1)3 

_ ... XREFINFOLTNDEX] s= 03 


END? 
END OF CROSSREFDUMP3; 
SVOIDT 02882921 
IF GTi #1 AND NOT MACROID THEN * NOT RESERVED WorRD 
XREFITCTeLINK»eCARDNUMBER*NORMALREF )$ % BUILD XREF ENTRY 
XMaRKCLELREF D3; % THIS WILL SORT AHEAD OF DECLARATION 
2 WHEN WE GET AROUND TO THE XRFEF. 
XMARKCASSIGNREF D3 % FILL STATEMENT 
XMARKCASSIGNREF)$ % FOR STATEMENT 
XRFEDUMPCPOINTER)$ % DUMP XREF {NFO 
$ VOIDT 13301731 
IF XREF THEN % MAKE DECLARATION REFERENCE 


% IF CACCUMLO],CLASS # DEFINEDID OR NoT 
é BoOLEANCACCUMLOJ].FORMAL)) THEN 3 NOT DEFINE PARAMETER 
$ VOIDT 13310601 

REGIN 


XREFINFOCNEXTINFOI 35 
IF SPECTOG THEN 
XREF INF OrELBATSF II) 
ELSE 
CCXLUN t= XLUN + 4) & SGNO SEGNOF)3 
IF SPECTOG THEN % JUST GO BACK AnD FIX UP XREF ENTRY 
XMARKCDECLREF ) 
ELSE 
XREFITOCNFXTINFO?CARDNUMBER® IF pToG AND NOT STREAMTOG 
THEN NORMALREF ELSE DECLREF)3 


: ENN 
4 FLSE 2 DEFINE PARAMETERS = DONT CROSS REF, 
% XREFINFOUNEYTINEO] := 0 
FUSE 
TF MEFININGe itt] THEN % WE ARF DOING XREFING 
XREFINFOCNEXTINFO] 3s O03 


IF XREF AND NOT SPECTOG THEN % ERASE PREVIOUS XREF ENTRY, 
XMARKCDECLREF)$ % PROCENURE DECLARED FORWARD, MARK LAST 
y XREF ENTRY AS A DECLARATION, 
XREFDUMpCyg)? % DUMP XREF INFO 
XREFITCPROINFOsO*FORWARDREF); % WE NEED THIS So WE CAN FIND 
% THE FORWARD DECL*+® DURING XREF 
-REAL REMFMBFRSFONO$ % REMEMRFRS SEQUENCE NUMAER OF VARIABLE 
% ON Lert HAND SIDF OF ASSIGNMENT SO We 
% CAN XRFF IT CORRECTLY, 
ReEMEMBERSFQNO t= CARDNUMBER} 
XMARKCASSIGNREF); % ASSIGNMENT TO SyMPLLE VARTABLE. 


SVOIDT 
bea BHEGIN 
BEGIN 
ERR(?20!1)3 4 PARTIAL WoRD NOT LEFT*MOST 
Go To EXIT; 
END} 
XREF ITC TALL» REMPMRERSEQNO*ASSIGNREF 93 
GO TO Li} 
FNn$ 
Jazz! XREE TT CTALLeREMEMRERSEQNOsASSIGNREF)? STFPITS AEXP3 


02001815 
02004870 
02001624 
020018292 
02001825 
02001830 
02882099 
02882100 
02882200 
07598100 
07598200 
07660600 
08178100 
13283500 
13301099 
13310050 
13310075 
13310080 
13310099 
13310100 
13310200 
13310300 
13310350 
13310400 
13310450 
13310500 
13310525 
13310550 
13310575 
13310580 
13310600 
13310700 
13310750 
13310800 
13310900 
13310950 
13341200 
14312100 
14312101 
14445109 
14469100 
14469101 
15075550 
15075551 
15075552 
15085100 
15994100 
15092040 
15113100 
15115000 
15115100 
15115200 
15115300 
15116000 
15116100 
15116200 
15233012 
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XMARKC 

X 

IF (XRErF OR ner 
NRE INE XRe 


CF 
FF. 
NEW 
ARRAY TIMI 
PROCEDURE 
VALUE T3 
REGIN 
INTEGER 
FOR J ts 
begets eget : TIMING 
END? 
PROCEDURE 
_.VALUF T3 
BEGIN 
INTEGER 
FOR J 35 
TIMING 
FNns 
SAVETIMFS( 
TOTALNO t= 
FOR | t= 0 
PUT¢osT) 


1F 6 
Ih deitstlae hers, Os 4 TA 


“EN 
ns 3 


XREF PTCTALL»® REMPMBERSEQNO,ASSIGNREF) 3 % ASSIGNMENT TO15301100 


% SUBSCRIPTEN VARIABLE, 
IF STEP?) = ASSIGNOP THEN 
1F P1 = FS THEN % PARTYTAL WORD IS LEFT=MOST 
BEGIN 


15301200 
15342000 
15342100 
15342200 


XREFITCTALL» REMEMBERSEQNO*sASSIGNREF)$ % PARTIAL15342300 


@ WORD ASSIGNMENT To SUBSCR, VARe 
GO TO LAST; 
FND 
LELREF)3 4% MARK LABEL OCCURENCF FOR XREF 
MARKCASSIGNREF)3 
INING,.C 1217) AND XLUN > O THEN 
FINFOCINnNEX] = UNFOrCCINDEX).Cr DIV 2),03337]6 
CCINDEX), CF DIV 2),LINKC)#, 
(33°15 74, 
C18'151#. 
IDEINDEX}) = CIF BOOLEANCINDEX) THEN XREFINFOCINDEX].FF 
ELSE XREFINFOCINDEX]<CF)#3 


ou 


NGSLOt2eq13]3 
SAVETIMESCI)3 


INTEGER I3 
J3 
1 STEP UNTIL 3 DO 


1 
StleJ] t= TIMECJ)3 


UPDATETIMESCID3 
INTEGER I¢ 


Jy 
1 STEP 1 UNTIL 3 DO 
SCIed] s= TIMECI) 7 TIMINGSEI oJ); 


O03 % SAVF TIMES FOR START OF IDENTIFIER SORT, 
XLUN? ¥ REMEMBER NUMBER OF TDFNTIFYFRS, 
STEP 4 LUNTII, 8191 DO 
s 
REGIN 
REWINDCDSK1)3 
UPDATETIMESCO)3 % UPDATE TIMES FoR IDENTIFIER SORT. 


TIMINGSE€ MeO] $= XLUNs * NUMBER OF IDENTIFIERS SorTED, 


ENI 
IF BOOLFANCACBI) THEN 

XREFINFOCACBIIJ.FF := XLUN ts XLUN + 1 
FLSF 

XREFINFOCAC8I]],cr t= XLUN t= XLUN + 13 
AC8I],1IDNOF $= XLUN; : 


3. 8C < De THEN 
LLY t= 4 
“GIN 
SI ts A$} 
DI := B3 
IF 63 SC = DC THEN 
TALLY := 23 
D3 
= 8 LIT 3"777777777"3 & IDeNOs AND SEGeNUe FIELDS 


15342400 
15342500 
15342600 
16159100 
16318500 
16495300 
17002005 
17002006 
17002007 
17002008 
17002009 
17002010 
17002012 
17002015 
17002020 
17002025 
17002030 
17002035 
17002040 
17002045 
17002050 
17002055 
17002060 
17002065 
17002070 
17002075 
17002080 
17002525 
17004500 
17004700 
170047140 
17022000 
17022100 
17022200 
17022300 
17022400 
17025000 
17025100 
17025200 
17025300 
17025400 
17033000 
17033100 
17033200 
17033300 
17033400 
17033500 
17033600 
17033700 
17033800 
17041100 
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Oe On Se 
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IF REALCCOMP11=COMPS1(A»B)) 


= 2 THEN 2 IDS EQUAL 


COMP, := ALBI],1IDNOF < BL&I],IDNOF; 
SORTCOUTPUTI >» INPUTLsOsHV1»,COMPis10e1F TOTALNO < 1000 THEN 


sos eee see eee 7000 ELSE 10000); 
$ VOINT 17969001 
ARRAY IDTYPELOSCIDMAX+3)x4"1];3 


STREAM PROCEDURE SETUPHEANDING(S*DeSEGsSEQNOsFWNTOG*lLRLTOGs 


\ 


FNNSEQNOs TYPE» OWNTOG? PARAMTOG? 


; . VALTOG); 
VALUE SFGsSFQNO sr WNTOGeLALTOGeFWNOSEQNO, OWNTORsPARAMTOG. 
 VALTOG3 
BEaIN | 
Sp .t2. $3 
DI ts D3 


43 CIF SC = * ™ THEN JUMP OUT ELSE DS 


_...DS_22.6 LIT " aw ts 
OWNTOG CDS := 4 LIT "OWN "y; 
Sl 35 TYPE$ 


PARAMTOG (ps t= 6 L1T " == "3 
DS f= 4 LT "NAMEN 


DS = 40 LIT * PARAMETER')3 


OS t= 18 LIT w= DECLARED AT "3 
= SI t= LOC SEQNO} 
NS ts 8 DEC} 
FWDToOG CDOS t= 17 LIT ™ == FORWARD AT 
= = : SIT := Loc FWOSEQNO3 
DS 35 8 HEC} 
= 146 LIT "™ == gccURS aT 


LBLT9G COS 
ce SI 3:=.LOc FWDSEQNO; 
DS = 8 DFcy: 
FNn OF SETUPHEADING? 


VALUE SEQNOsN»STARSS 
_ .BEGIN. bee 

Nl t= D3 

DI rs DI + B3 

N CDI 25.01 + 1053. 

STARSCDI :*® DI " 13 OS te LIT Matos 

SI := LOG SFQNO; 

ns. $= 8 nrc; 

nS ts LyT ™ ‘3 

STARS ¢cD1 t= Dy = 1# DS t= LyrT WH"); 


Galse. ifac END: 


STREAM PROCEDURE By ANKETCD)3 
BEGIN 
ee DI 
ps 
SI 
aw. 08 ot 6 WDOS3.. 0. 
FND OF BLANKET; 
PROCENURE PRINTXREFSTATISTICS3 
REGIN | | 
SWITcH FORMAT STATS 35 
C/s/e "CROSS ReFrRENCF STaTISTICS"» 


LIT wots 


. 
, 
e 
5 


> sz ee ee 


unina 


D 
8 
D 
1 


:= CHR): 


— 2. 2. 32 CTF Se = "e" THEN JUMP OT ELSE nS $= CHRD3 


VALTOG ¢Or t= DY = 43 NS t= 5 LIT "VALUE")3 


Wy 


3 


STREAM PROCEDURE AnDASFQNO(SEQNO+NsSTARS+0)3 


/? 


17042300 
17042350 
17045000 
17045100 
17047001 
17047100 
17047200 
17047300 
17047350 
17047400 
17047450 
17047500 
17047700 
179047800 
17047900 
17048000 
17048100 
17049300 
17049400 
17049410 
17049420 
17049430 
17049440 
17049500 
17050400 
17050500 
{7050600 
17050700 
17050800 
17050900 
17051000 
17051100 
17051200 


. 17051300 


17051400 
17051500 
17051600 
17051700 
17051800 
17051900 
17052000 
17052100 
17052200 
17052300 
17952400 
17952500 
17952600 
17052700 
17952800 
17052900 
17053000 
17053100 
17053200 
17053300 
17053400 
17053500 
17053600 
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410 
110 
110 
110 
110 
110 
110 
110 
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C) 


O) 
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C"PHASE ONE = SORT"s 165" IDENTIFIERS)» 
CTPHASE TWo = SORT"#I79" REFERENCES" 5» 
A"pHASE. THREE = PRINT CROSS REFERENCE ("ol z7e™ LINES) >» 
CX5elae"s"setie" ELAPSED TIME (MINS SEC) ™)» 
CX5eT4e"3"s2T15" PROCESSOR TIME)» 
CX5e14e"s"s271," 170 TIMES s)3 
TNTE GFR Tod kKe 
WRITe CLINE sSTATSSOI)D; 
FOR + t= 0 STEP 4 UNTIL 2 DO 
BEGIN 
WRITECLINE*® STATS I+i}*TIMINGSCI01)3 
FOR.J t= 1 STEP 1 UNTIL 3 DO 
BEGIN 


17053700 
17053800 
17053900 
17054000 
17054100 
17054200 
17054300 
17054400 
17054500 
17054600 
17054700 
170546800 
17954900 
17055000 


K $= (TIMINGSEIeJ] + 30) DIV 603 % ROUND To NEAREST SECON17055010 


WRITECLIMNEsSTATS£LU+3]9K DIV G0sCK?=K MOD 60) DIV 10% 
K MON 10)3 
END; 
ENn3 


ENn PRINTXREFSTATISTICSS 


DFE INE REFCOUNT = TIMINGS(1e0]#3 % NyMaeR OF REFERENcFS SORTED. 
BOOLEAN FIRSTT MEFs % TRUE ON FyRst call Of OuTPUT PROCEDURE, 
Real LASTADDRESS} 

OEFINEG + = LASTADDRESS#; 
ArO] t= | & NEWTOrT, REF IONOF] REFYDNOFS 
REFCOUNT t= REFCOUNT + 13 
XREFAY{£8] t= XREFPT t= LASTADDRESS := 0} 


FILL IOTYpEC*] WITH 
"UNKNOWN, ", £0 
"STREAM LABEL. ", & 4 
"STREAM VARI aRbr. " 22 
"NEF INE, wee 3 
"LIST, ", ¥ 4 
wEORMAT, ", ¥ 5 
"SWITCH FORMAT, ", x 6 
WREAL SUBROUTINE, ", £2 7 
"SUBROUTINE,  % 8B 
WSWITCH LABE,. ", @2 9 
"PROCEDURE, ", 2 10 
"INTRINSIC. ur ae ee | 
"STREAM PROCEDURE Wy R12 
"ROOLEAN STREAM PROCEDURE « ", % 13 
"REAL STREAM PROCEDUREs ", % 14 
"INTEGER STREAM PROCEDURE. ", % 15 
"INTEGER STReaM PROCEDURE. ", % 16 
"BOOLFAN PROCEDURE. Hoo gy. ET 
"REAL PROCEDURE, ", % 18 
"INTEGER PROCEDURE, te 12 
"INTEGER PROCEDURE, ", % 20 
"BOOLEAN, ", % 24 
WREAL. " x 22 
"INTEGER. ", % 23 
"INTEGER. ", % 24 
"BOOLEAN ARRAY« We R25 
"REAL. ARRAY, ", % 26 
"INTEGER ARRAY, We FoB Te 
» % 28 


"INTEGER ARRAY, bi 


17055020 
17055025 
17055030 
17055100 
17055200 
17069300 
17069400 
17069600 
17073100 
17080000 
17080100 
17084000 
17084010 
17084020 
17084030 
17084040 
17084050 
17084060 
17084070 
17084080 
17084090 
17084100 
17084110 
17084120 
170841309 
17084140 
17084150 
17084160 
17084170 
17084180 
17084182 
17084184 
17084186 
17084188 
17084190 
17084200 
17084210 
17084220 
17084230 
17084249 
17084250 
17084260 
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Cy 


. C) (} CT) CY 
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} 


Or Oo Vee 


O 


O 


” Lr % 29 
"NAME, LE % 30 
"INTEGER NAME, ", %¥ 31 
Ee Ona eee “LABEL, "3 % 32 


LABEL EOF2s SKyP3 
OWN BOOLEAN B2, FWNTOG, LRLTOGs WAITINGFORFEWDREFS 


SB Aersbos DEFINE MATCHCA,R) = RFALCROOLEAN(CA) fOy BOOLFANCB)) = 


RraAL¢eNOT FALSE) #3 
Rral 73 
DEFINE LTNECOUNT = TyMyNGSrp2,0)#3 x% NUMBER OF LINES PRINTED, 
OWN REAL, FWDOSEQNOS 
IF FIRSTTIME THEN % PRINT HEADINGS AND SAVE TIMINGS, 
Lie, GZ & fe REGIN 
FIRSTTIME := FALSES 
TIME! := TIMEC1)3 
DATIME; 
UPDATETIMES C1); 
PINES SES % SAVE TIMES FOR START OF XREF PRINT, 
= eNns 
BVOrpDT 17111001 
IF NOT B? THEN 
1F B THEN % END OF SORT = LIST OUT REST OF SEQ, NO, 
1F XREFPT # 0 THEN &% WE GOT SOME TO LIST OUT 
BEGIN 
bee apes he : WRITECLINECDBLIJ915*PAYDxJ)3 
LINECOUNT := LINECOUNT + 143 
END 
ELSE 4 NOTHING TO LIST OUT 
ELSE * NOT FND OF SORT 
IF NOT MaTCHCLASTANDDRESS*®AL0J) aNpn ALOJ.REFIDNOF # O AND 
£2: e% om ACOJREFINNOF = XRFFAYLE8).InNNOF THEN 
JF ALCO], TYPFREF = FORWARDREF THEN & 


WAITINGFORFUDREF 3:3 TRUE 
septhttnek, b> che Wt ELSE. 
IF ACO], TYPFREF = LBLREF THEN 4 
BEG rN 
LBLTOG t= TRUE} 
FWDSEQNO t= AcCO],S5SEQNOF3 
END : 
ELSE 


IF afO].TYPFREF = DECLREF THEN 
IF WAITINGFORFWDREF THEN % THIS MUST BE IT 
REGIN 
WAITINGFORFWDREF 3= FALSE? 
FWOTOR s= TRUES 
FHDSEQNO := AfO],SEQNOF3 
ENN 
ELSE % 1TS A NORMAL DECLARATION = NOT FORWARD 
BEGIN 
IF ACOJREFIDNOF > XREFAY1C8),I10NOF THEN 


DO 
pee a READ(NSK1*10»XREFAY10C*J) LEOF2] 
UNTIL 
ACOJ,REFIDNOF <$ XREFAYIEC 81+ IDNOFS 
IF ALO]. REFIDNOF < XREFAYICB4J+1IDNOF THEN 
GO TO SKIP3 
1F XREFPT > O THEN &% THERE JS STUFF TO PRINT 


17084270 
17084280 
17084290 
17084300 
17091100 
17091110 
17091415 
17091116 
17091120 
17094140 
17091150 
179094155 
17091160 
17091162 
17091165 
17091170 
17091175 
17091180 
17091200 
17094204 
17091210 
17094300 
170914400 
17091500 
17091510 
17091520 
17091530 
17091600 
17091700 
17091800 
17091900 
17092000 
17092100 
17092200 
17092300 
17092400 
17092500 
17092600 
17092700 
17092800 
17092900 
17093000 
17093100 
17093200 
17093300 
17093400 
17093500 
17093600 
17093700 
17093850 
17093900 
17093950 
17094000 
17094050 
17094100 
17094450 
17094200 
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110 
110 
110 
110 
110 
110 
110 
110 
119 
110 
140 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
140 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
140 
110 
110 
110 
110 
110 
110 
110 
110 


O° 0 


O- <a 


O 


Oo e- Mee? 4D 


+) 


Oe 


O 


_. ELSE % THrS 
ELSE % HIT ENn OF TOENTIFIER FILF = JUST 
FOF2: B2 t= TRUE? &% 

te NOT B THEN SKyPt 
FNn OF OUTPUT2; 


8 


E 
FL 


XR 


EGIN 


IF SINGLTOG THEN 


WRITECLINE®15*°PAY(*)) 


ELSE 


WRITECLINECDBLI.15*PAYE *])3 
r= LINECOUNT + 13 


LINE COUNT 
No 
SFE 


TF NOT SINGLTOG THEN 
WRyTeE¢LYNEDS 


EFPT t= 03 


BLANKETCPAY[*])3 
SETUPHEADINGCXREFAYI 6%] *PAYC*I*XREFAYICB], 
SEGNOF »sALO] +SEQNOF »pFWDTOGsLBLTOGs 

FWOSEQNO*®TIDTYPELCIF (C1 

XREFAY#{£9].CLASS) > IDMAX THEN 

O ELSE 1) x 4)» 

REALCI > BOOID ANpn XREFAYIC91].£9:2]) = 1)» 

REALCC] > BOOTn OR | = 


CXREFAYIC9OIT.09381)))>5 


¢ 


LOcLID) aNn BOOLEAN 


XReFAYIC9O],Ciorily3 


FUNTOG = belTOG := FALSE; 
WRITE CLINE »15-PAYL*1)3 
NECOUNT #= LINECOUNT + 14:3 
BLANKET CPAYL*])3 


LJ 


END 


ELSF % 


RE. 


IT MUST BE A NORMAL REFERENCE 
IF ACOJ].,SEQNOF # LASTADDRESS.»SEQNOF THEN 


GIN 


ADDASEQNOCALTO] ,SEQNOF*XREFPT*ALO),(531]1» 
PAYC#1])3 
$= XREFPT + 4) = 11 THEN FULL 


IF CXREFPT 


BFGIN 


WRITECLINE® 152PaAYl*))3 
ts LINECOUNT + 13 


LINECOUNT 
XREFPT 


= 03 


BLANKETCPAYL*])3 


END 


END 
FLSE % REFERENCE TO SAME SEQ@e NOw SKIP IT 


ArO) ts 3"777777777777777"3 


COMP? 


$0 SORT CaN gO TO 
LASTANNRESS 


t= aLlol3 


1S A REFERENCE TO THE SAME SEQ, NO, = SKIP 


SKIP OVER REFERENCES 
NORMAL f£0J 


% BIGGEST FLOATING PT, NO, 


IF AfO],REFIDNOF < BLOJ.,REFTONOF THEN % DIF IDS 


TR 
EI,SE 


UE 


IF AlglsREFIDNOF = Blol+REFIDNOF THEN 
IF alo) .Ct1:4] USs BlO].01:4) THEN 


TRUE 
FLSF 


Ir ACOT,Cit*4] = Bro), 


c1:4) THEN 


IF ALOJ.SEQNOF « BLOJ,SEQNOF THEN 


TRUE 


ELSF 


TF ALO],SEQNOF = 


BC0],SEQNOF THEN 


17094240 
17094250 
17094300 
17094350 
17094400 
17094419 
170944290 
17094450 
17094500 
17094550 
17094600 
17094650 
{7094700 
17094800 
17094900 
17095000 
17095100 
17095300 
17095310 
17095320 
17095400 
17095500 
17095510 
17095550 
17095600 
47095700 
17095750 
17095800 
17095900 
17096000 
17096100 
17096200 
17096300 
17096350 
17096400 
17096450 
17096500 
17096550 
17096575 
17096600 
17096700 
17096800 
17096850 
17096900 
17114000 
17117000 
17117100 
17117200 
17117300 
17117400 
17117500 
17117600 
17117700 
17117702 
171177048 
17117706 
17117708 
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110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
119 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
140 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 
110 


am 


C) 


© CO 


C) 


C) 


C3 


sv 


O 


) 


re Business Foras, Inc 


tho 


CO 


Che 


} 
- 


C-SI 


C) 


eee eens BOOLEANCATO},(521]) 


FLSE 
FALSE 
SAVETIMFSC1)3 ¥% SAVE TIMES FOR START Of RerERENcES SORT 


FIRSTTIME $= TRUES % LET OUTPUT PROCFDURE KNOW ABOUT FIRST CAL 


SORTCOUTPUTA» TINPUT2 > Or HV2,COMP251,6000)3 


PRINTXREFSTATISTICS$3 


..$% DATE 2/1776 


$i BY JTC = MSA CENTRAL, 
$3 


—~$3..THIS PATCH IS NEARLY A COMPLETE REWRITE OF THE ALGOL 


$i CROSS REFERENCE ROUTINES IN AN ATTEMPT TO REDUCE 
$1 THE AMOUNT OF PAPER PRONUCED AND ALSO TO PROVICE MORE 


8% INFORMATION ABOUT THF IDFNTIFIERSe IN PARTICULARS 


$t THF FOLLOWING CHANGES HAVE BEEN MADES 


$3! 
$2.1), ONE LINE 3¥S LISTFD IN THF CROSS REFERENCE FOR FACH 
$i TOENTIFIFR WHICH INCLUDES THE FOLLOWING TNFORMATIONS? 
$3 A, THE NAME OF THE IDENTIFIER, 
$3. B, THE CLASS Of THE IDFNTrFIERs E.Gee REAL, 
$3 INTEGER» BOOLEAN, PROCEDURE» FITC; 
; C. IF THE TOENTIFTER 1S A FORMAL PARAMFTER JT IS 
too... 1. MARKED AS A "NAME PARAMETER" OR w VALUE PARAMETFR*, 
$1 D. THE SEGMENT AND SEQUENCr NUMBER AT WHICH THE 
: TOENTTFIER +S DECLAREN, 
$4) |) EL YF THE 1DENTIFTER 1S A PROCEOURE |DENTIFTER» THEN 
$ IF THE PROCEDURE IS DECLARED FORWARD THE SEQUENCE 
#t NUMBER OF THE FORWARD DECLARATION IS LISTED, 
a Pas F, IF THE IDENTIFIER TS A LABEL IDENTIFIER» THE SEQUENCE 
$3 NUMBER AT WHICH THE LABEL OCCURS IS LISTED. 
$t 
$4.2 )¢ ASSIGNMENTS TO InENTIFIERS aRE NOW sTARRED IN THE 
$3 CROSS REFERENCE IN THE FOLLOWING ADDITIONAL CASES: 
$3 Ae WHEN A SUBSCRIPTED VARIARLE IS USEn IN ASSIGNMENT, 
$f -.Be. WHEN AN ARRAY ROW IS USFD IN A FILL STATEMENT. 
$3 Ce WHEN AN ARRAy ROW IS USFN IN A SEARCH STATEMENT. 
: Co WHEN A SIMPLE VARIARLE 18 USED IN a FOR STATEMENT, 
$3. .De WHEN A LOCAL VARIABLF OR STREAM PARAMETER IS CHANGED 
$3 BY BFING ASSIGNED THE VALUE OF SJ,DreCt OR TALLY, 
$t 
$1.32. DEFINE PARAMETERS ARE NO LONGER CROSS REFERENCED, 
$3 
$$ 4), fDENTIFITERS REFFRREN TO 1N THE RIGHT HAND SIDE OF A 
$3 DEFINE DECLARATYON ARE NO LONGER CROSS 
- REFERENCED AGAINST THE DEFINE DECLARATION, 
H 
$$ SID rF NO PDENTEF TERS WERE CROSS REFERENCEnN» THE TOFNIIFreR 
$3 SORT WOULD BLOW UP WrTy AN 7/0 ERROR 86° NOw, XREF 
$3 CHECKS TO MAKE SURF THERE 1S SOMETHING TO SORT BEFORE 
$8 BEGINNING, 


$$ 6)5 IT SHOULD NoW BE poSSIBLE To SET AND RESET XREF 


UPDATETIMES¢ 2) &% UPDATE TrmES FOR PRINTING CROSS REFERENCE 


17117710 
17117712 
17117714 
17117720 
17117730 
17117800 
17117900 
17117910 
17117920 
17119000 
171191090 
17119200 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 
99992000 
99992100 
9999220 
99992300 
99992400 
99992500 
99992600 
99992700 
99992800 
99992900 
99993000 
99993100 
99993200 
99993300 
99993400 
99993500 
99993600 
99993700 
99993800 
99993900 
99994000 
99994100 
99994200 
99994300 
99994400 


VU VUVVUGVUVUU VVUVPUUVUVUVUVUVUVU UU VP UU UU UCC UU UU UC eC ee Ue ee Ue Ue UU U8 


C) 


O 


C) 


C 


O 


$4 INDISCRIMINANTLY DURING A COMPILE WITHOUT CAUSING THE XREF 
om | $t TO GET CONFUSED, PREVIOUSLYs REFERENCES WOULD GET 
} $t ASSOCIATED WITH THE WRONG IDENTIFIERS. THE RULE NOW IS THaT 
eater _$t._. | XREF. MUST_BE ON AT THE POINT OF DECLARATION FOR AN 
ee $2 IDENTIFIER TO Br CROSS REFERENCED AT able 
$ 
_. ... 8 7)e PREVIOUSLY* WHEN THE SAME IDENTIFIER OCCURRED IN 
a $3 DIFFERENT BLOCKS» THE IDENTIFIERS WOULD BE LISTED 
UO $3 IN NO PARTICULAR ORDERe NOWs THE IDENTIFIER THAT 
ee a APPFARS FIRST WELL RE LISTFp FIRST IN THE XREF. 
‘S| : 
© 
S#PATCH NUMBER 111 FOR FSPOL CONTAINS 3 CARDS, 
ae IF MERGETOG THEN % INDICATE NAME OF SOURCE FILE, 
5 WRITECLINE® <XGOe"SOURCE FILES “"eA1eAbe"/S ss Ale AGe//>e 
Se CNISSTAPEeMFID) .COL6] oN1 eC N2E=TAPE. FID), COSGI]9N2)3 
) $! DATE 2/6/76 . 
: ee $: BY JTC = MSA CENTRAL. 
3 $3 
2) $3 THyS PATCH PRINTS THE NAME OF THE SOURCE FrLe BELOW 
7 > THE NAME OF THE OBYECT FILE ON THE PRINTED LISTING IF TAPE 
$: IS SET AT THE TIME THE HEADING IS PRINTED, 
ok _S#PATCH NUMBER 112 FOR FSPOL CONTAINS 116 CARDS, 
O 094 PARSE: MISSING RIGHT BRACKET 
Seteciwt. St xy (OLR BLOCK: AUXMEM APPEARS IMMENIATELY BEFORE InNENTIFIFR (NO TYPF) 
: SBITF =C2is6]#- % STARTING BIT FOR FIELD ID, 
© Nerte =C27:6]#, % NUMBER OF BITS FOR FIELN ID. 
ihc ape «ns ee _ FIFLDID 81258, COMMENT 1753 
3 DEFINEV =19#, COMMENT 233 
O AUXMEMV =20#»s COMMENT 243 
Sekar terete eer eae ee FIELDV . =21#3 COMMENT 253 
DEFINE LASTSEQUENCE = 447#» 
IF STEpI = FIELDID THEN % GET INFO FROM INFO 
BAe whe set Nees tat BEGIN 
FIRST %= ELBATCII«SBITF3 
SECOND 3= ELBATCII.NBITF3 
Pty a, ae aa GO TO EXIT; 
on END 
So! ELSE 
IF €1.CLASS LFTBRKET THEN 


_ IF STEPL = FIE| NID THEN 
UO BEGIN 
FIRST += ELRBATLII,SBITF3 
oe SECOND := ELBATCIIANBITFs 
Ss IF STEPI = RTARKET THEN 
eT 4. x . GO TO EXITS 
PND 
FLSF 


99994500 
99994600 
99994700 
99994800 
99994900 
99995000 
99995100 
99995200 
99995300 
99995400 
99995500 


00000000 


01835600 
01835700 
01835800 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 


90000000 


00069975 
00418000 
01154200 
91154300 
01278700 
01298000 
91298500 
01298600 
01569000 
05273100 
05273200 
05273300 
05273400 
05273500 
05273600 
05273700 
95273800 
05273900 
95274000 
05274100 
05274200 
95274300 
05274400 
05274500 
05274600 
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110 
110 
110 
110 
110 
110 
110 
110 


111 


a 
ee ee ee ee ee ey 
ee ee a 


C 


(C) 


wes, 


eS 


Lit 


tr FLCLASS = LYTNO THEN 
IF FLCLASS = Frebnin THEN 
REGIN 
FIRST #= FLBATCII.SBITFS 
SFCOND t= 48 = CTHIRD t= ELBATEC UJ aNBITF)3 
GO TO NEXTCHK?3 


IF STEPI = FIELDIN THEN 
BEGIN 
FIRST := ELBATCIIJ,.SBITF3 
SFCOND $= 48 = CTHIRD := ELBATLII«NBITF)3 
IF STEP! # RTBRKET THEN 
BEGIN 
ERREDA)3 
Go To EXITS 
END? 
GO TO NEXTCHK3 
END 
ELSE 
IF FuebaASS = LITNO THEN 
Oe T1310157730000002, "35cS00"s ¥652 
07T0500000250000000, “SFYELAs %654 
IF ELCLASS>IDMAX AND FLCLASS<MyLOP 
GOTSCHKsFIFLODEC »AUXMFMERR, 
STREAMERR+DFFINEDEC, AUXMEMERR »FIFLODECS 
AUXMEMERRIFLAGC618) Fs Ut=ay412GO TO REALDECS 
FIELDNEC! 
BEGIN 
ReAL SAVFEFINFOs SBys NB} 
BOOLEAN FOUNDLB? &% TRUE TF LEFT@BRACKET WAS USED IN FIELD SPEC, 
LABrFL FyIT, SAVEIT? 
STOPENTRY t= STOPGSP t= TRUF3 
Tots tom f3 
DO 
BEGIN 
STOPDEFINE 2= TRUE} 
STEpIT3 
ENTRYCFIELDID); 
SAVEINFO := LASTINFO; 
IF ELCLASS = RELOP AND aCCuMf€1] = "1 9000" THEN 


REGIN 
IF STEP] = LFTRRKET THEN % REMEMBER THIS 
REGIN 
FOUNDLB $= TRUE; 
STEPIT; 
FND 
ELSE 


FOUNDLB t= FALSES 
IF euLcbASS = FIFLDIN THEN 
BFGIN 
SB #= FLBATEJI,SBITF3 
NB 2 FLRATLCIIJ«NBITFS 
GO TO SaVFIT3 
FNn3 
IF FLCLASS = LYTNO THEN 
IF STFPT = cOULON THEN 


05275000 
06315100 
06315200 
06315300 
06315400 
06315500 
06315600 
06315700 
06316100 
06316200 
06316300 
06316400 
06316500 
06316600 
06316700 
06316800 
06316900 
06317000 
06317100 
06317200 
06317300 
09128600 
09128700 
13337000 
14016000 
14021000 
141436100 
14269020 
14269040 
14269060 
14269080 
14269100 
14269120 
14269140 
14269160 
14269180 
14269200 
14269220 
14269240 
14269260 
14269280 
14269300 
14269320 
14269340 
14269360 
14269380 
14269400 
14269420 
14269440 
14269442 
14269444 
14269446 
14269448 
14269450 
14269459 
14269460 
14269480 
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t12 
112 


112 
112 
112 
112 
112 
112 
112 
12 
112 
ti2 
112 
112 
t12 
112 
112 
112 
112 


Cc 


C) 


C) 


C) 


$3 


NO THEN 
BATCI™2].ADDRESS) x 

= ELBATr11,ADDRESS) # O AND 
SR + NB € 48 THEN 


tF ¢SB 


i | 


PUTCTAKECSAVEINFO) & SB SBITF & NB NBITFe 
SAVEINFO)3 
STEPITS 


Tr FOUNDLR THEN % BETTER HAVE RIGHT BRACKET. 


IF ELCLASS = RTBRKET THEN 
REGIN 
STEPIT: 
GO TO FXIT?3 
FND 
FLSF % MISSING RIGHT RRACKET. 
ELSE 
G0 TO EXIT; 
END: 
ENN3 
FLAGCI1493 
DO STEPIT UNTIL ELCLASS = COMMA OR ELCLASS = SEMICOLON 
EXITS 
END 
UNTIL 
ELCLASS # COMMA$ 
STOPENTRY t= SToOPGSp t= FALSE3 
EnDs 
GO TO START: 
ARRAY IDTYPELOs CIDMAX+4)x4m1]; 
"LAREL« ", % 32 
"FIELD. "; % 33 (CLASS = 125) 
XREFAYI{C9],cLASS) > IDMaAX THEN IF [1 # 
a ae FIELDInN THEN 33 ELSE O FLSE I) x 4)» 
DATE 2/2/76 
BY JTC = MSA CENTRAL 


THrS PATCH IMPLEMENTS A NEW DECLARATION TYPE OF “FYELD" WHICH 


PROVIDES A CONVFNIENT METHOD OF DNESTGNATING A PARTIAL WORD FIELD 

A LA THE 6700 ESPOL AND ALGOL MFCHANTISM, THIS METHOD IS CONSIDERABLY 
MORE EFFICTFNT THAN A DFFINFE BECAUSE THE PARTIAL WORD FIFLD ITNFOR@ 
MATTON +S STORED OFF WrTy THe TDFNTrFE IER IN THE SYMBOL TABLF THUS 


MAKING REFERENCES TO Tyr PARTIAL WORD Frebn VERY INEXPENSIVE, 
THE SYNTAX FOR A PARTYAL WORD DECLARATION 1S AS FOLLOWS? 


<FIELD DECLARATION> ss= FIELD <FIELD LIST> 


aoe 6 SEL. SFIELD LEST> op: = <FLELD> 7 <FIELD LIST> » <FIELD> 


$i 


ante tn th Dales Cae es 


<FIeELD> ¢:= <FIELD INENTIFIER> = <FIELD SPECIFICATION> 
“<FIELD TDENTIFIER> :t= <IDENTIFIER> 
<PFIFLD SPECIFICATION> 33: <INTFGER> & <INTEGER> / 


C <INTEGER> ¢: <INTEGER> J / 
<FIELD IDENTIFIFR> / 


14269500 
14269520 
14269540 
14269560 
14269580 
14269590 
14269600 
14269620 
14269640 
14269660 
14269680 
14269700 
14269705 
14269710 
14269715 
14269720 
14269740 
14269760 
14269780 
14269800 
14269820 
14269849 
14269860 
14269880 
14269900 
14269920 
14269940 
14269960 
14269980 
17047100 
17084300 
17084400 
17095000 
17095100 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99994000 
99991100 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 
99992000 
99992100 
99992200 


ir Taos © ioe: > die © oe © Des © Dee © De © eee Dee © De © ee © dee © oe © de © ee © De © ee ©? DO Dee © ee © Doe © ee © © oe © Den © oe © oon © en © DS ee © oe © ee © Don © ee © eee eee ee es ee Se © © no eS ee © © en 0 deo Dn © ie oes eS Dev ee ee | 
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O 


(oy -3 


SS ae © eee © ee Oe © 


C) 


cd 


$ EOS 01476001 


$8 C <FIELD IDENTIFIFR> J 
$3 SOME FXAMPLES! 
$i 
$i FteLD cF = €33:15]73 
$3 
: Fiebp Fr = 18815, 
$3 SIZF = 083403 
$3 


$t FIrbnS May Br USFD ANYWHERF PARTTAL WORN DeSTGNATORS MAY RE USED 
$i ANn MAY RF FNCLOSEN +N RRACKFTS OR NOT AS neStRens« ENCLOSING 
$t THE FIELN TDENTIFIER tN BRACKETS MAY HELP THRE READABILITY OF 


_ $3 THE CODE BUT OF COURSE RFQUIRES EXTRA SCANNING BY THE 


$3 COMPYLER TO PROCESS THE BRACKETS, 


$3 
$3. SOME EXAMPLES: 

$t 

$t I o:* leFF; 

hr. ; 

$8 J 2= 1eCF & 10 TSTZE] & K FF? 
$3 

$$ 9. . ,FF t= J,€cry3 


$3 


99992300 
99992400 
99992500 
99992600 
99992700 
99992800 
99992900 
99993000 
99993100 
99993200 
99993300 
99993400 
99993500 
99993600 
99993700 
99993800 
99993900 
99994000 
99994100 
99994200 
99994300 
99994400 
99994500 


BB kK RK RI OGIO GG GG Gi i GR dk dak k ie kok dk 99999999 


~S#PATCH NUMBFR 113 FOR FSPOL CONTAINS 2 CARDS*: 


BSeT OMrT LSTA = LYST 
S$POP OMIT LISTA 
$i DATE 3/2/76 


8! BY JTC = MSA CENTRAL 


$8 TH1S PATCH SETS OMrtT AROUND THE COMMENT AT THE BEGINNING OF THE 
$3 ESpo), ComPILER To SPEED UP SCANNING OF THE COMMENT, 


00000000 


00000999 
00499999 
99990000 
99990100 
99990200 
99990300 
99990400 


Bo RR OGG GGG RIG GR RICK kok dokok kok ak doko 99999999 


S#PATCH NUMBER 114 FOR ESPOL CONTAINS 222 CARDS. 


_LAREL EXITe NEXTe LASS$3 
DEFINE : 
FORMALNAME = (932] = 2s 
LONGID = NAMEIDE#s 
PARTIALWORN = CTL #4 O48» 
FRRFEXITCNUM) = BEGIN ERRONUM); GO TO EXITS FND#S3 
BOOLEAN 
SPcLMON, 
NUPTT+ % TRUE ITF WF ARE DOING UPDATE TYPE ASSTGN*= 
% MENT» T.Foe 1 ts * 4 Lee 
$ VOInT 15127004 
TF TALL.CLASS < INTIN THEN % SIMPLE VAR OR FORMAL NAME 


00000000 


01471000 
15076000 
15076100 
15076110 
15076120 
15076130 
15076140 
15076200 
15076300 
15076400 
15076500 
15085150 
15085200 


VvuVVVVVVVV UV Ve VV Vee Be UO 
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/ 


Ly 
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O 
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BEGIN. 
te STrePy # ASSYGNOP THEN 


IF Pi = FL THEN 


BFGIN 
IF ELCLASS < AMPERSAND THEN 
EMITNCTALL«ADDRESS) 
ELSE 
EMITVCTALL+ ADDRESS): 
GO TO EXIT; 
END 


ELSF 


Ir FLCLASS = PERIOD THEN &@ PARTIAL WORD 
IF DOTSYNTAXC(T1*T2) THEN & FRROR 
GO TO FXIT 
ELSE 
STFPIT3 


1F ELCLASS = ASSTGNOP THEN 
BEGIN 


STACKCT ‘t= 13 
If PARTIALWORD THEN % MaKe SURE LEFT@MOST 
BEGIN 
1F P41 # FS THEN &% NOT LEFT=MOST 
FRREX TC 201) 
XREFITCTALL, REMEMBERSFONO,ASSIGNREF D3 
END 
Ey SE 
XMARK CASSIGMREF )3 
IF TABLECI+1) = ASTRISK THEN % MIGHT BE UPDATE 
IF CDUPITs=CTABLECI+2 5 > EQVOP AND TABLECI+2) 
s MULOPy OR TABLECI+2) = AMPERSAND) THEN 
STEPIT$ % STEP OVER ASTERISK 
If TaALLeFORMALNAME THEN % FORMAL PARAMETER 
RFGIN 
_ FMITNOTALL + ADDRESS): 
IF PARTIALWORD OR puUPIT THEN * NEED VALUE 
BEGIN 
EMITOCDUP)?3 
EMI TOCCOC): 
END? 
END 


‘ELSE % ITS A SIMPLE VaRTARLE 


TF PARTIALWORD OR DUPYT THEN 
; EMITVCTALL,ADDRESS)3 
Ir PARTIALWORD AND DUPIT THEN 
REGIN 
EM; TOCDUP)D$ 
EMyTr¢OsT1+T2)2 
END} 
STACKCT = REALCPARTYTALWORD OR DUPIT)3 
STEpPIT3 
IF DUpPIT THEN % ALREADY GoT FIRST PRIMARY 
SIMPARITH 
ELSE 
AEXP}3 
FMITNC4B*7T2eT19»T2)3 
STACKCT t= 03 
GT1 t= IF TALL «CLASS = INTID THEN 


15085400 
15085600 
15085800 
15086000 
15086200 
15086400 
15086600 
15086800 
15087000 
15087200 
15087400 
15087600 
15087800 
15088000 
15088200 
15088400 
15088600 
15088800 
15089000 
15089200 
15089400 
15089600 
15089800 
15090600 
15090800 
15991000 
15091200 
15091409 
150916090 
15091800 
15092000 
15092200 
15092400 
15092600 
15092800 
15093000 
15093200 
15093400 
15093600 
15094800 
15095000 
15095400 
15095600 
15095700 
15095800 
15095900 
15096000 
15096100 
15996400 
15096600 
15096800 
15097000 
15097200 
15097400 
15097600 
15097800 
15098000 


VUIVG VVVV VV VP VIVE VM VV Ve VU eC Ve Ve UT PU DU UB PC UC UC UP UU TC UV eT Be VV VP Vv UV Be eee 


Cy C) Cy {) Ci C) () 


Cy 


} 
f 


B 


1F P1 = FS THEN 


FS THEN 


— 
7 
yz 

Sel 
u 


; SNn3 
ieee 3. te TALL,FORMALNAME THEN 

RFayN 
PMrTOEXCH)$ & TO GET nESCRIPTOR ON TOP 
1F TALL,ADDRESS > 1023 THEN ¥% SET VARTANT 

EMTTOCPRTE)? 

EMITO¢GT4)3 

EnD 

ELSE 
EMITPAIROTALLe ANDRESS »G7T1)3 


bite, Pee END 


FLSE % NOT ~SSIGNMENT TO SIMPLE VaRIaBlLe 
BEGIN 


nS Ip Pi # FP THEN & EXPECTED ASSIGNMENT 


FRREXITC202)3 
EMITICTALLsT1sT2)3 & EMT OP CALL AND PARTJAL 
FND: * WORN CODE 
FNn OF SIMPLE VARIABLES 
$ VOInHT 15233028 
Te STFPy # LeTARKET THEN & ARRAY ITEM NOT FOLLOWED BY 
REGIN % A SUBSCRIPT 
IF ELCLASS = PER;OD THEN 
IF DOTSYNTAXCT1+T2) THEN & ERROR IN PARTIAL WORD 
GO To EXIT 
ELSE 
16EE hye: - 78 Soar % : STEP YT? 
IF FLCLASS = ASSYGNOP THEN 
BEGIN 
ies Se ‘ YF PARTTALWORD TwrN 
BEGIN 
IF pi # FS THEN 4 PARTIAL WorRD NOT LEFT#=MOST 
ERREXITC209)3 
XREFITCTALLeREMEMBERSEQNO*®ASSIGNREF )3 
ENp 


gh sie & _flbsSe % aSSIGNMENT TO Tp WITH NO PaRTIAL WORD 


XMARKCASSIGNRFEF)3 
IF TABLECI+1) = ASTRISK THEN 
IF CpUPIT $= (TABLECIT4+2) 2 EQVOP AND TaBLECT+2) 
< MULOP) OR TABLECT+2) = AMPERSAND) THEN 
STEPIT3 
JF PaRTIALWORD OR DUPIT THEN % NEED VALUF ON STACK 
IF TALL.CLASS <$ INTARRAYID THEN % NOT NAME ITEM 
EMT TPATR¢TALL. ADDRESS sLOp) 
ey d ELSE 
FMTTNCTALLSANDRESS)3 
IF PARTIALWORN AND DUPIT THEN 
REGIN 
FMI TOCHUP)$; 
EMIT]COsT1»T2)$3 


15098200 
15098400 
15098600 
15098800 
145099000 
15099200 
15099400 
15099600 
150996800 
15100000 
15100200 
15100400 
15100600 
15100800 
15101000 
15101200 
15101400 
15101600 
15101800 
15102000 
15102200 
15102400 
15102600 
15103400 
15103600 
15103800 
15183050 
15183100 
15183200 
15183300 
15183400 
15183500 
15183600 
15183700 
15183800 
15183900 
15184000 
151844700 
15184200 
151A4300 
15184400 
15184500 
15184600 
15184700 
15184750 
15184800 
15184850 
15185000 
15185100 
15185200 
15185300 
15185400 
15185500 
15185600 
15185700 
15185800 
15185900 


VuUVUVVOUVVUVVVUVUVUV UV VV VM VV VV VU UO UU VU VU OV VV VU VU VP VU VT UV UT ee PC VT UC eee UO 


114 
114 
114 
114 


114 
114 
114 
114 
114 
114 
1414 
114 
114 
114 
114 
114 


y 
Zh 


Foant 


wat Dorms, Inc sv 


O 


O 


& VOINT 


eNns 
STACKCT t= STACKCT + REALCPARTrALWORD OR nuUPYT)3 
STFPrT? 
IF DUPIT THEN % WE HANDLED FIRST PRIMARY 
SIMPARITH 
ELSE 
AEXP3 
EMITNC4B™T29T19T2)3 
EMITPAIRC TALL, ADDRESS* IF P1 = FS THEN STD ELSE 
SND)3 
STaACKcT := 03 * A AND B ARF EMPTY 
FND 
ELSE % NOT ASSIGNMENT 
EMIT CTaALL»T1»T2)3 
GO TO fxyT3 
END OF ASSTGNMENT TO NON SIMPLE NON SUBSCRIPTED 
VARTARLF 


_.8 VOINT. 15370004 


1F STEP} = PFRIOD THEN % PARTTAL WORD 
TF NOTSYNTAXCT1,72) THEN % ERROR 


qQ TO FXyT 
FLSF 
STEPTT3. 
TF ELCLASS = ASS1GNOP THEN &% ASSIGNMENT TO SUBSCRIPTED 
BEGIN % VARIABLE 


IF PARTIALWORD THEN 
IF py # FS THEN 
FRREXITC29993; & PARTIALWORD NoT LEFT=MoST 
XREFI TC TALL» REMEMRERSEQNO?*ASSIGNREF 93 
IF J = 1 THEN & sINGLe™pIMENSIONED 
EMITNCTALLe ADDRESS) 
FLSE 
EMITOCCDC)S3 
IF TALL,CLASS 2 LONGID THEN & EXPLICIT INDEX OP 
FMITOCINX)3 & REQUIRED 
IF Pi = FR THEN % CALLED FROM FOR STATEMENT 
GO TO FXIT$ 
TF TARLECT+12 = ASTRISK THEN 
IF ¢DUPYTi=cTABLECI+2) 2 FAVOP AND TABLE CI +2) 
<¢ MULOP) OR TABLECI+2) = AMPFRSAND) THEN 
STEPIT? 
TF PARTILALWORH OR DUPTT THEN & NEFD VALUE ON STACK 
BEGIN 
EMITOCDUP); 
FMITOCLOD)3 
ENpD: 
TF PARTYALWORD ANN DUPTT THFN 
_ .BEGYIN 
EmITacDUP )3 
EmITICosT1 91993 
END} 
STEPIT?: 
IF pupPIT THEN 
SIMPARITH 
ELSE 
AEXP3 


15186000 
15186100 
15186200 
15186300 
15186400 
15186500 
15186600 
15186700 
15186800 
15186900 
15187000 
15187100 
15187200 
15187300 
15187400 
15187500 
15187600 
15273000 
15299050 
15300000 
15300100 
15300200 
15300300 
15300400 
15300500 
15300600 
15300700 
15300800 
15300900 
15301000 
15301100 
15301200 
15301300 
15301400 
15301500 
15301600 
15301700 
15301800 
15301900 
15302000 
15302300 
15302200 
15302300 
15302400 
15302500 
15302600 
15302700 
15302800 
15302900 
15303000 
15303100 
15303200 
15303300 
15303400 
15303500 
15303600 
15303700 


Vvvtvv vu VvVvVVVUVV VV VV VV VU VU CO UU UV UU UU VU TV OD UU Ue Te UC Ue ee UT 


EMITDOC4S*T2sTisT2)3 
EMITOCXCH)S 
IF TALL,ADDRESS > 1023 THEN 


2 eis FMYTOCPRTEDS 


FMITO¢TF TALL.CLASS MOD 2 = INTARRAYID M0p 2 THEN 


1F Pi = FS THEN 1SD ELSE 15N 
FLSE IF P1 = FS THEN STp ELSE SND) 
STACKcT t= O08 %¥ A & B ARE EMPTY 
P41 3s O3 
Np OF aSSIGNMENT TO SUBSCRIPTED VARIABLE 
ELSE 
BEGIN &% HANDLING OF NO ASSTGNMENT CASE 


SPCLMON t= P1 = FP OR PARTyALWORD OR ELCLASS 


| AMPERSAND$ 
IF J = 4 THEN % SINGLE DIMENSIONED 
dis auc oe SUEY 2 IF TALLeCLASS > LONGID THEN ®@ NAME ITEM 
BEGIN 
EMTTNCTALL, ADDRESS); 
FMETFOCINX): 
Ip sPcLMON THEN 
PFMITOCLOn): 
oe & . FND 


rLSp % REFFRENcr TO SINGLF DIMFNSIONED ARRAY 


Ip SPCLMON THEN 
EMITVC TALL, ADDRESS) 
ELSE 
FMITNCTALL. ADDRESS) 
FLSE x MULTIANTMENSIONED CASE 
EMITOCTF SPCLMON THEN cOC ELSE cOC)+ 
IF Pt = FS THEN & EXPECTED AN ASSTGNMENT 


ee ERRFX{7TC210)3 
STACKCT t= 13 % BECAUSE REGISTERS ARE NON@EMPTY 


IF PARTYTALWORD THEN 


ee: ; BEGIN 
FMET1COoT1.T2)% 
Py t= 03 
END3 


END OF NO ASSIGNMENT CASES 


S¥PATCH NUMBER. 115 FOR FSPOL CONTAINS 150 CARDS 


CASFV J=aots COMMENT 0613 
i. =) NER INE LaSTSe@urNcr = 149%, 


15303800 
15303900 
15304000 
15304100 
15304200 
15304300 
15304400 
15304500 
15304600 
15304700 
15304800 
15304900 
15305000 
145305100 
15305200 
15305300 
15305400 
15305500 
15305600 
15305709 
15305800 
15305900 
15306000 
15306100 
15306200 
{5306300 
15306400 
15306500 
15306600 
15306700 
15306800 
15306900 
15307000 
45307100 
15307200 
15307300 
15307400 
15307500 


00000000 


01229000 
01569000 


LLL EEL LY LEYULYLLE GLA EELL SLYKE LELLEXUELARELULE FLA LELFSRAEBEALELERSLRBEZXZO7GGCO10 
FOE SCO OGIO OSGI GIORGI OGO RIGOR OG IORI ORG IGG aks ikki 3 07646015 


a. 


h* 


*%07646020 
*%07646025 
*%07646030 
*%07646035 
*%07646040 
*%07646045 
*%076N6050 
*%07646055 


%*x THYS PROCEDURE HANDLES THE CASE STATEMENTe THE SYNTAX FOR THE CASE *%07646060 
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wo 
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1414 
114 
114 
114 
114 
114 
414 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
114 
144 
114 
114 
114 
114 
114 
114 
114 


B* STATMENT..1St 
%* 


%* CASrF <AEXP> OF REGIN <COMPOUND TAIL> 
+e 
2* THE CODE GENERATED FoR THIS STATEMENT [S? 
a* 
_ Bx <AEXp> 
Bx LITC ? 
Bx BFW BRANCH TO BRANCH TABLE 
Bx STMT O 
Bx Liye 7 
ae BFW BRANCH TO RESUME 
STMT 1 
%% LITc ? 
a* BFW BRANCH TO RESUME 
% x ¥ 
Bx . 
%¥ . 
Be BRANcH TABLE? 
yr DUP 
Rx ADD 
Bx BFW BRANCH NTO TABLE 
% % LITC ? 
ze BRW BRANCH TO STATEMENT 0 
Zx LiITc ? 
Ze BBW BRANCH TO STATEMENT 14 
%* : 
%* : 
%x : 
he LITC 9? 
_ ae BBW BRANCH TO STATEMENT N 
Bx RESUME? 
Bx 
_ Bx 
S« NOTICE THATS 
ax 
Be 1) THE CASF INDEX 1S NOT INTFGERIZED. Tr YOU HAVE ANYTHING THAT 
%™ MIGHT CAUSE THE INnEX TO BE UNNORMALYTZED YOU WILL HAVE TO 
bx INTEGERIZE 1T YOURSELF, 
%* way 
* 2) NO RANGE CHECKING 1S DONE ON THE INDEX. IF YOU USE A NUMBER 
%* OUT OF RANGE THEN YOU WILL FALL OFF THE END OF THE WORLD, 
Z* 
&* 3) 1F A STATEMENT IN THE CASE COMPOUND TaArL 3S NULL» NO CODE IS 
%* GENFRATED FOR THE STATEMENT. INSTEADs THE BRANCH TABLE GOES 
_B* DIRECTLY TO RESUME, 
ex 
z* 4) 1F A STATEMENT 1N THE CASE COMPOUND TAIL +S A SIMPLE GO TO, 
%* _ THE STATEMENT DOES NOT HAVE A BRANCH To RESUME AFTER 1T; 
yx 


*%07646065 
*%07646070 
*%07646075 
*%07646080 
*%07646085 
*%407646090 
*207646095 
*%07646100 
*%307646105 
*%207646110 
*%07646115 
*%07646120 
*¥07646125 
*%07646130 
*%07646135 
*%07646140 
*ZOT6A6145 
*%07646150 
*%07646155 
*%07646160 
*%07646165 
*%07646170 
*%07646175 
*%07646180 
*%07646185 
*%07646190 
*%¥07646195 
*%07646200 
*%07646205 
*207646210 
*207646215 
*%07646220 
*%07646225 
*%07646230 
*%07646235 
*%07646240 
*%07646245 
*%07646250 
*%07646255 
*%07646260 
*%07646265 
*%07646270 
*%07646275 
*%07646280 
*%07646285 
*%07646290 
*%07646295 
*%07646300 
*%07646305 
*407646310 


FICO OUI IO CII IGIGIO IORIO IOS IOC Bok toe 807 646315 


PROCENURE CASESTATEMENT: 
BEGIN 
ARRAY CASEADDRESS[0:99]; 


® THIS ARRAY HOLDS THE RELATIVE 
% ADNRESS OF THe REGINNING OF EACH 


B CASK. 


. BEAZEBEAESLASERLLRAARBALBLLALHELLELU EE VS ABHLALLY LALA DEERE LY LLY SE LYLAYYAY7 646 320 


07646325 
07646330 
07646335 
07646340 
07646345 
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115 


115 
115 
115 


CO A a AE. SR, 


(Oe Or HD. SE: 


+ 


ee INTFGFR 
LyNK » % HOLOS RELATIVE ADDRESS OF FIRST OF 
® BRANCHES THAT MUST RE FIXED UP TO 
: % BRANCH TO THE RESUMrF POINT, 
ADR, % HOLOS RELATIVE ADDRESS OF THE RRANCH 
% AROUND THE CASE STATEMENTS TO THE 
% BRANCH TABLE. THIS RRANCH GETS FIXED 
% UP WHEN WE FIND WHERE THE BRANCH TABLE 
% GOES, 
: Ne % COUNT OF NUMBER OF CASE STATEMENT 
% ENCOUNTERED, 
ENDOFIT, % ADDRESS OF RESUME POINT 
de % TEMPORARY 
K} % TEMPORARY 
% 
ROOLEAN 
GoToG3 x TRUE YF WE ARE COMPTLING A SIMPLE 
2 GO TO, 
bey, 959 2% - ABEL ALITY 
% 
% 
STEPIT: ® STEP OVFR "CASE" 
AEXP$ % GENERATE CODE FOR CASE INDEX 
IF STEPTt # BEGINV THEN % NOTICE WE JUST JUMPED OVER “oF” 
BEGIN 
ERR¢70)3 GO TO XIT3 
END; 


EMITCO); % GENERATE DUMMY BRANCH TO BRANCH TABLE. WILL FIX 
EMITOCRFW)3 3% 1T UP LATER, 
AnNR is L3 
WHILE STEPI # ENDV nO 
BFGIN % PROCESSING CASE STATEMENTS 
ERRORTOG t= TRUE3 
IF eLCLASS = SEMICOLON THEN % NULL STATEMENT, NO CODE NEEDED 
Nts N+ 14 & THIS LEAVES A ZERO IN CASEANDRESS(CNI 
ELSe 
eee ss  REGIN ; 
CASEADDRESSrN] t= L3 % REMEMBER BEGINNING ADDRESS OF 
N ts N + 43) % THIS CASE, 
- IF ¢GoToG := SIMPGo) THEN 
ELRATC Ys 171) := ELCLASS :* GoVs % REMEMBER IF SIMPLE 
STMT: % PROCESS THE STATEMENT 
IF ELCLASS = SEMICOLON THEN 
IF NOT GOTOG THEN % GENERATE DUMMY BRaNCH TO RESUME 
REGIN 
ca FMITCLINK)} 
FMITOCBFW)3 


LINK s= L3 
END 
ELSE % SIMPLF GO TO. NO CODE TO GFNERATE 
ELSE 
we - 4: JF ELCLASS # FNDV THEN 
FRR¢?4L)3 
ENDS 


END OF WHILE LOOP} 
ENDTOG t= TRUE} % SKTP OVER COMMENT AFTER ENN 
DO STOPNEFINE ts TRUE UNTIL 


07646350 
07646355 
07646360 
07646365 
07646370 
07646375 
07646380 
07646385 
07646390 
07646395 
07646400 
07646405 
07646410 
07646415 
07646420 
07646425 
07646430 
07646435 
07646436 
07646440 
07646445 
07646450 
07646455 
07646456 
07646457 
07646458 
07646459 
07646460 
07646465 
07646470 
07646475 
07646480 
07646485 
07646490 
07646495 
07646500 
07646505 
07646510 
07646515 
07646520 
07646525 
07646530 
07646535 
07646540 
07646545 
07646550 
07646555 
07646560 
07646565 
07646570 
07646575 
07646580 
07646585 
07646590 
07646595 
07646601 
076466092 
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Se 
ee a ae ee ey 
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C) cy eo: CY 


C) C) 


C) 


6 eo ee S ee © eee © ee Ge ee 


On 


— 


( 


C) 


CO 


'S) 


STEP $ ENDV AND FLCLASS 2 UNTYLV OR NOT FNDTOG3 07646603 P 1445 

ENOTOG ‘ts FALSES 07646604 P 445 

EMI TBcBEWsADRoL, 3 % FIX UP BRANCH To BRANCH TABLE 07646605 P 445 

EmITOcCNUP)3 % GENERATE CODE To MULTIPLY INDEX 07646610 P 4145 

EmITocanD)3 %’ BY TWO AND BRANCH INTO BRANCH TABLE 97646615 P 115 

EMITOCBFW)3 07646620 P 415 

ENDoFIT := L + 2xN3 % CALCULATE WHERE pRESUME IS 07646625 P 415 

WHILE CJs=J+1) < N pO % GENERATE THE BRANCH TaRLe 07646639 P 115 

EMITR(BBWeLssl+2e7F CKrScaSEaDDRESSCU"1)) = 0 THEN 07646635 P 115 

. ENNOFIT ELSE K); 07646640 P 115 

Joss LINK; & TO Make THE LOOP wOoRK 07646645 P 115 

WHILE CLINKt=J) # 0 po 07646650 P 415 

BeFGIN %&% FIXING UP BRANCHES TO RESUME 07646655 P 115 

J t= GETCLINK=2)3 & LOCATION OF NFXT BRANCH TO FIX 07646660 P 445 

EMI TBCBFWeLINKol,)3 97646665 P 415 

; _ END} 07646670 P 115 

xIT! O7646674 P 415 

END OF CASF STATEMENT? 07646675 P 415 

Lag} 07759100 P 415 

CASESTATFMENT? GO TO FXIT3 07759200 P 115 

Lait 07770000 P 4145 

06T0500000250000002, "SFIELN', 4654 091268700 P 115 

0¢T0610000000000000, "arASFO", %656 09128800 P 445 

$? BY JTC = MSC DETROIT 99990000 P 115 

$i THrS PATCH ANNS A =CASF* STATEMENT TO ESPOL, SEF 99990100 P 115 

$3 DOCUMENTATION AT BEGINNING OF PROCEDURE TO SFE HOW 99990200 P 415 

$i 1T TS USED, 99990300 P 445 

BCU II IOS ICICI OI IGIG IO GE GRO Roda ia ii 99990400 P 415 

SEPATCH NUMBER 116 FOR ESPOL CONTAINS 1 CARD 00000000 P 116 

SAVE ARRAY DEFINEARRAYS0:34173 01491000 P 116 

$3 DATE 6/29/76 99990000 P 116 

$3: BY JTC = MSA CENTRAL 99990100 P 116 

$3 99990200 P 116 

C) $i THIS PATCH FIXES A PROBLEM WITH ESPOL THAT COULD CAUSE THE 99990300 P 116 

——.... . St COMPTLER TO ABORT WITH AN INVALID INDEX AT END OF FILE ON 99990400 P 116 

- S$? EITHFR THE CARD OR TAPE FILE IF NO 99999999 CARD WAS PROVIDED, 99990500 P 116 
O 

uae S#PATCH NUMBER 117 FOR FSPOL CONTAINS 3 CARDS; 00000000 P 4417 

ee % MARK XV1,0.416 00001030 P 417 

Outen tate, Wee ete 3 MAY 9%, 1977 00001040 P 4117 

7 "XV 1.01161 01831000 P 417 

$i BY DJZ = MSC NETROTT 99990000 P 147 

a ee «6.8 PATE 05/09/77 99990100 P 117 

$t THTS PATCH UPDATES THE MARK LEVELS OF THE SYMBOL FILE. 99990200 P 417 

O BECO C IORI GIGI ISIC IOISICC ISSO IOI DISI ISIS IGF CEK Ka 99990300 P 117 
O 


ane 


\ 
A: 


12027 


sv 


5, Inc. 
~ 
} 


Farm 


Cusiness 


iicare 
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- $# PATCH NUMBER 9014 FOR ESPOL CONTAINS 4 CARD 


Bi THIS PATCH CHANGES INPUT TAPE BLOCKING TO ALLOW INCREASED 
wee a BEF FICIENCY. IN. STORING SOURCE FILES ON TAPE 
$$ BY TUPe 2/16/77, USp UTILITY CoMPTP/UTIL TO CREATE SOURCE TAPES. 
BEGIN RR8«+50x10+5041% RR9e10 ENDS 00538000 


S#PATCH NUMBER 902 FOR FSPOL, CONTAINS 1 CARD, PAGF SKIP BETWEEN PROCEDURES 


_ BE LTHYS PATCH CHANGES THE FFFECT Of THE FORMAT OPTION TO CAUSE A 
$3 PAGE SKIP BETWEEN PROCEDURES INSTEAD OF A FOUR#LINE SKIP 
$t BY GaHes UCSCs 4 MAY 77 
Pear Awe gt 
SPACFITDOWN = WRYTECLINErPAGE 1) #3 14023100 


Oo 


MOEON 


° 


OoaIagIan 


901 


901 
901 
901 
901 


902 


902 
902 
902 
902 
902 
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OOO OG IG CONFLICTS 


a. we) hee  & VOINT. 01001771 
DEFINE XREF INFOLXREFINFOL*+XREFINFOOI= 
XINFOCXREFINFoLsCXREFINFOQIDIV 2) 4s 
we ee  . XMARK= TF. XREF THEN XREFAY2CKREFPT"1] 4.0421] ¢5 43 


; x 
ARRAY XREFAY21 08293 +XREFAYILOS1O] eXINFOLO 3120212793 


INTEGER XREFPT»XLUNS 


DEF TNE LASTSEQUFNCE = 149%, 
_..DEFINE LASTSFQUENCE = 1a7vé#, 


wu...  . DEFINE LASTSEQUENCE = 147%, 
tf XREF THEN 
tF GTi#1 THEN 
BEGIN . 
IF XREFPT=30 THEN 
BEGIN 
WRITE CDSK2930eXREFAY20E x] 93 
XREFpT © 03 
ENDS 


XREFPT «+ XREFPT+13 
ENnN$ ’ 


0¢T0500900250000002, "SFIELNNs 
OcTO500N00250000000, "SFIELD'» 


07T0500000250000000, "SFIELD™s 
STREAM PROCEDURE XREFMOVECS + C»SNoSQeheD)# 
VALUE C,L3 
mene cices > Yrs BrarN 
0? 
8 LIT" ws 


> 


WHS: 


20 9s 28 cm em ef 


— we we 
we) 
we 


VUMNMoOUMOSD 
aot 
xz , 
ee 
we 


— Dea mw me oe Pee Ym 


—) 20 en ce 


af tf on nut Mt toa 


avuvereNnnoueg 


mm 
mt ‘Ne 
we + 

n 

i?) 
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01001750 
01001750 
01001760 
01001770 


01007100 
01007100 


01007200 
2DFBO01007200 


01569000 
01569000 


01569000 
02882100 
02882200 
02882300 
02882400 
02882500 
02882600 
02882700 
02887800 


XREFAY2CXREFPTI“CARDNUMBERR&XREFINFOCGT1+GT21(09:36:12); 02882900 


02882910 
02882920 


09128700 
09128700 


09128700 
40FB13301100 
20FB13301130 
%0FB13301160 
40FB13301190 
%DFB13303 220 
%0FB13301250 
2DFB13301280 
4DFB13301310 
4D0FB13301340 
%DFB13301370 
40FB13301400 
20FB13301430 
2DFB13301460 
20FB13301490 


v0 UU 


vv 


vv vv VvuVVUVTVVV UU 


vuvvUuVvVVVe VV VV Uo Uo 


108 
108 


ARORA KOR OR FORGO OIG ICICI OIG I IG OR IGIC IOR IG IOI I UK kak ak kak doa ak kak 


CONFLICTED WITH? 
DISCARDED 
VOINED 
VOTDFD 


EO WITH: 


CONFLIC 
NISCARDED 


CONFLICTED WITH? 
NISCARDEN 


CONFLICTED WITH? 
DISCARDFD 


CONFLICTED WITH 
VOIDED 
VOLOFD 
VOIDED 
VOIDFD 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOTDFD 


CONFLICTED WITH? 
DISCARDFDO 


CONFLICTED WITH? 
VOIDFD 
VOIDED 
VOTDED 
VOIDED 
VOIDED 
VOINDED 
VOIDED 
VOTDED 
VOTNED 
VOTDED 
VOIDED 
VOINED 
VOIDED 
VOIDED 


oy We -o ty I 
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C) 


eal ve: oc Ss: 


C) O | QO) 


ae © ee ee 


2a 


O 


C3 


DS:=4 DEC; 
ST:=SQ3 
DS:=8 DEC; 
STssLoc L3 
DS:=WOS; 
END; 
END$ 


IF XREF AND CNOT PTOG OR STREAMTOG) THEN 
BFGtN 
XREFMOVECACCUME11],COUNT»SGNO »CARDNUMBERs» 
XREFINFOCNEXTINFO.LINKReNEXTINFOSLINKC]#=XLUNS=XLUNG SL» 
XREFAY4 9? 
WRITECDSK10e10sXREFAY1C #193 
END} 


IF XREF AND NOT SPECTOG THEN &% ERASE PREVIOUS XREF ENTRY 
1F XREF AND PTOG THEN 


IF XREF AND PTOG THEN 
XMARKCASSIGNREF)$ % ASSIGNMENT To SIMPLE VARIABLE, 
SVOIDT 
REGIN 
BEGIN 
ERRC201)3 ® PARTIAL WORD NOT LEFT*MOST 
Go To EXITS 
END$ 
XREF ITC TALL» REMEMBERSEQNO»ASSIGNREF )3 
GO TO 43 
FNO$ 


ut 


XMARK3$ 
IF TALL»FORMALNAME THEN 


TF TALL,FORMALNAME THEN 
JAZZ 3 XREFTTCTALL»REMFMBERSEQNO*ASSIGNREF)$ STEPIT? AEX 


@DFB13301520 
2DFB13301610 
2DFB13301640 
20FRB13301670 
2DFR13301700 
40FB13301730 


2DFB13301730 

13310100 
20FB13310200 
%DFB13310300 
SDF B13310400 

13310450 
20FB13310500 
*DFB13310600 


’ 13341200 
13341200 


13341200 
15091100 
15092010 
15113100 
15115000 
15115100 
15115200 
135115300 
15116000 
15116100 
15116200 


15092000. 


15092010 
15092020 


15092020 
P3 15233012 


JAZ72 | XREFITCTALL»REMFMBERSEQNOsASSIGNREF)S STEPITS AFXP3 15233012 
XREF rT ¢CTALL»REMEMBERSEQNO, ASSIGNREF)# &% ASSIGNMENT 1015301100 


% SUBSCRIPTED VARIABLE, 
IF STEPT = ASSIGNOP THEN 
IF Py = FS THEN & PARTIAL WORD IS LEFT=MoST 
REGIN 
XREFITCTALL*REMEMBERSEQNO*ASSIGNREF)$ % PAR 
4 WORD ASSIGNMENT TO SUBSCRe VARs 
GO TO LAST; 
END 


IF CXREF OR DEFININGs C1317) AND XLUN > O THEN 
IF XREF OR DEFININGs£1:1] THEN 


15301200 
15342000 
15342100 
15342200 
TIAL15342300 
15342400 
15342500 
15342600 


16495300 
16495300 
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VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOTDED 
VOINFD 


CONFLICTED WITH? 


VOIDED 
VOTDFD 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 


CONFLICTED WITH? 


NISCARDED 


CONFLICTED WITH? 


VOTDED 
VOTDED 
VOTDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOTDED 
VOIDED 
VOTDED 
VOIDED 
VOIDFD 


CONFLICTED WITH? 


VOIDED 


CONFLICTEO WITH? 


VOIDFD 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 


CONFLICTED WITH: 


DISCARDFD 


O 


C) 


C) 


Go 


NEFINE XREFINFOCINNEX] = INFOFCCINDEX).CF DIV 2),033:7), 
DEFINE XREFINFOSINFO#3 


TOTALNO %= XLUN’ % REMEMBER NUMBER OF IDENTIFIERS, 
TOTALNO¢REALCXLUN >500)x%1000+30004+XLUN3 


BEGIN 


ee ee REWIND¢(NSK1) 


TF BOOLFANCAL81]) THEN 


17002005 
17002005 


17004500 
17004500 


17022000 
‘OF B17022000 


17025000 


ALOI]S=XREFINFOLALCIT.LINKRe ALOT .LINKC] S=XLUNESXLUN413 ZDFB17025000 


te 63 $C «< De THEN 
1™F 63 SC LSS DC THEN TALLY?=13 


IF REA|.CCOMP1%=CoMPS1(A*B)) = > THEN % IDS EQUAL 
COMPis=COMPS1CA®B)3 


SORTCOUTPUTLs INPUT >O*#HVisCOMP1*10eIF TOTALNO < 1000 THEN 
SORTCOUTPUTI >» INPUTI>»>O*#HV1»+COMP1*® LO» TOTALNO 3 


SORTCOUTPUTL>*+INPUTL®O*HV4+COMP1*°10*»TOTALNO 3 
STREAM PROCEDURE PUP(S»D)} 
woe o BEGIN 
ST?#sS83 
DIt=D3 
a PStsa7? WnSs BenSia8B LIT ™ 53 
SVOIDT 17054551 
END? 
STREAM PROCEDURE PUP1(SsD)3 
BEGIN 
SptsSs Sypt=Sy4323 Syps=Sp+283 
DI#=D$ HSt=2 LyT " "$3 YSts4 CHRs DSi=2 LIT ™ #3 
OS:=8 CHR} DSteaLyT "#3 DSss38 LIT * "3 
END3 
STREAM PROCENURE PUP2¢STARsSsC2D)3 
VALUE STARsSsac3 
BEGIN 
samt hte tat . OF ted; 
CONTS=DI+ 1093 


STARCOL«DIim13 OSeLITirxttys 
SIts_oc $3 
nSt= 8 DEC} 
OS:=LIT "™ 3 
Sets eee ds ahs 2 _. ENDS. 
STREAM PROCENURE RLANKETCA)3 
BEGIN 
bese naths, oe ies ree ts Peal® of DIt=A3 
DSte= 8 LIT wows 
SttsA3 


STARCDUSSDI713 OSssLIT "a3 


17933000 
20FB17033000 


17042300 
2DFB17042300 


17045000 
®DFB17045000 


40FB17045000 
20FB17048000 
SDF BU7049000 
20FB17050000 
2DFB17051000 
17052000 
17053000 
20FB17055000 
17055100 
17055200 
17055300 
17055400 
17055500 
17055550 
17056000 
17056500 
20FB17057000 
20FB17058000 
17059000 
17059100 
2DFB17060000 
S0FB17061000 
17061100 
ADFR17062000 
2DFB17063000 
40FB17064000 
2DFB17065000 
%O0FB17066000 
20FB17067000 


vu 


VUvUVTVVOVVVUUVVe Ve Ve Ve Vee Pe Ue BBE UU 


108 
108 
108 
108 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH$ 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITHS 
NISCARDFD 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH? 
VOTDED 
VOINED 
VOTDED 
VOIDFD 
VOIDED 
VOIDED 
VOTDED 
VOIDED 
VOIDED 
VOTDED 
VOIDFD 
VOIDED 
VOIDED 
VOIDED 
VOINED 
VOITDED 
VOIDED 
VOIDED 
VOTDED 
VOTDED 
VOTDED 
VOINDED 
VOTDED 
VOTDED 
VOITDFO 
VOIDFD 
VOTDED 
VOIDFD 


O) 


Cy SO. 32 


my 
eee 
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MAcore busines: 


oO 26 


y 


©) 


CG 


Cy GO 


ee ey Gs 


aos 
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DSt= 14 WDS3 SDF B17068000 

ENN 3S 20FB17069000 
ARRAY TOTYPFCOSCTDMAX+4)%4—49]3 17047100 
17047100 


ARRAY 1DTYPELO% ¢LDMAX43)x4—473 


NEFINE I = LASTADDRESS#} 17073100 

. DEFINE. 1=XLUN#} %0FB17073100 

‘ Afo] s= I & NEWIOCI«REFIONOF] REFIONOF: 17080000 
Alol:= [&8XREFINFOCI«lC 9:4) el Ci3:sgII0 9:36:12); 40FB17080000 
XREFAY1L8] t= yREFPT := LASTADDRESS := 03 17084000 
XREFAYIC9] 2371; XREFPT©¢O3 ZDFR1I7084000 

WLAREL «4 ", % 32 17084300 

“LABELS. . “ -§ "s % 32 17084300 

_.. .. .. LABEL FOF2. SKyP? 17091100 
LAREL LOOP,FOF2} 17091100 


OWN BOOLEAN B2, FWNTOG, LELTOG, WAITINGFORENDREFS 
OWN BOOLEAN B23 


17091110 
17091110 


FND3 17991200 
wee.) 6.) LABEL. DUNE 17091200 P 
LABEL DUNS 17091200 
IF NOT B2 THEN 17091210 
IF B THEN 2DFB17092000 
Bea «ts : WRITECPRINTER#® 15*PAY[*1]) 4DFB17093000 
ELSE 2DFB17094000 
IF LASTADDRESS # LaSTADDRESS«alO] AND LASTADDRESSel£9 112)4 0 THEN 17094100 
BEGIN. 20FB17095000 
LOOP: 20FB17095050 
IF a~lOJ.¢ 9212] GTR XREFAY1C9] THEN 2DFB17095100 
inks op _ BEGIN : . 2DFB17095200 
$ 17096000 


WRITECPRINTER» 15*PAYE x1 )3 17097000 
Betas ays 17098000 


BLANKETCPAY 93 XREFPT:=03 17099000 
RFADCDSK1s10*eXREFAY LC e IVC EOF 23 17099100 

ee -PUPCXREFAY1sPAY)? 17099200 
WRITE CPRINTER(NBLID3 17099900 

WRITFOPRINTER» 10sPAYE*1)3 %DFB17100000 
PUPICXRFFAY1»PAY)3 17100100 
WRITECPRINTERCOBLI+10,PAYE*])3 17100200 

%DFB17101000 


BLANKETCPAY 33 


vuuvUVUVVUVVV Ve VMI Vv Ve VP Ue 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH: 
DISCARDED 


CONFLICTED WITH? 
NISCARDFD 


CONFLICTED WITH 
DISCARDFD 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH: 
DISCARDED 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH? 
VOTDED 
VOIDED 
VOTOED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOINED 
VOIDED 
VOIDED 
VOIDFD 
VOTDED 
VOINED 
VOIDED 
VOIDFD 
VOIDED 
VOTDED 
VOINDED 
VOTDED 
VOTOFD 


} TE Hee es Cs 


uf 


3 


C) 


O 


DUN? 


60 LOOP} %DFB17101100 
END} DF B17102000 
17102100 

PUPOCLASTADDRESS < Os LASTADDRESS,£213271917103000 

XREFPTsPAYr31)3 17103010 

IF XREFPT:=XREFPT+1 = 41 THEN 17103100 
BEGIN %0FB17103200 
XREFPT$=03 %DFB17103300 
WRITECPRINTER® 15*PAYL*I)$3 ZDFB17103400 

_ BLANKFTCPAY)3 20FB17103500 

END$ 20FB17103600 

END? ZDFB17110000 

IF FALSE THEN FOF2! B?es=TRUES 17110500 
END? ZOFB17111000 
XREFAYIC9I].CLASS) > IDMAX THEN IF ] = 17095000 

XREFAY1£9].CUASS) > JDMAX THEN 17095000 

FIELDID THEN 33 ELSE 9 FLSE 1) «x 4]> 17095400 

oie sk cote Mages . . O ELSE 7) * 4d, 17095100 
ACO] 3" 777777777777 777"3 ZX BIGGEST FLOATING PT, NO, 17114000 


ALO1!=54975584 38873 %2DFB17114000 


COMP? ¢= TF ACOI],REFIDNOF < BLOJ,REFTDNOF THEN 2% DIF sDS 17117000 
COMP2« ABSCATOJ]) LEQ ABS(RLO])? 17117000 


SORTCOUTPUT 2» INPUT» Ore HV2,COMP2* 426000)3 17119000 
SORTCOUTPUT2s [NPUTA2s0eHV2sCOMP224 5 TOTALNO 3} 2DFB17119000 


NUMBER OF ERRORS DETECTED = 0, 
PROCESSOR TIME = 53 SECONDS. 
1/0 TIME = 34 SECONDS. 


LABEL QOONO00000LINE 00177231? EXECUTE PATCH/MERGE 


uv 


vuVDTVVeVT Ve Ve Ve Ve UU 


108 


140 
108 


VOTDED 
VOIDFD 
VOTDED 
VOIDED 
VOIDED 
VOTDED 
VOIDED 
VOIDED 
VOINED 
VOIDED 
VOIDED 
VOIDFED 
VOIDED 
VOIDED 


2 CONFLICTED WITH? 


DISCARDED 


CONFLICTED WITH 
DISCARDFD 


CONFLICTED WITH? 
DISCARDED 


CONFLICTED WITH? 
DISCARDFO 


CONFLICTED WITH? 
DISCARDED 


PATCH 


/MERGE 


(Oe Ge Or 


—-? COMPILE ESPOL/DISK ALGOL LIBRARY 


PACKET 23 

INPUT 1144 CARDS FROM ZIP 
TIME 1304 

DATE 77231 FRIDAY» 08/19/77 


*** BURROUGHS B5700 DCMCP MARK XVI.0.73 AND INTRINSICS MARK XV1,0,00 *xex 


#NO MESSAGES TODAY 


? COMPILE ESPOL/NTSK ALGOL LIBRARY 
? ALGOL STackKs 1000 
? ALGOL FILE TAPE= SYMBOL/ESPOL DISK SERIAL 
? FILE LINp= LINE PRINT OR BACK UP 
? MATA CARD 
4tALGOL/ESPOL= 1 BOJ 1305 05/19/77 
COB IN CARD DBE ALGOLZESPOL= 4 
DKA IN SER SYMBOL ESPOLPALGOL/ESPOL= 4 
PBDOODy, OUT 014 LINES ALGOL/ESPOL= 4 
DKA OUT RDM ESPOL DISK?ALGOL/ESPOL= 1 
_ #DUP LIRRARY ESPOL/DISKSALGOL ESPOL= 1 
RM OK NS 
#DUP LIRRARY ESpOL/DISK:ALGOL ESPOL= 1 
+tOPERATOR KEYEN IN: 1RM 
ESPOL/pISK REMOVED 
DKA LOK ESPOL DISK:ALGOLZESPoL= 1 
COB REL CARD DBtALGOL/ZESPOL= 4 
? END. 
DKA REL SYMBOL ESPOLSALGOL/ESPOL= 14 
PBDOO24 REL O14 LINE 7763:ALGOL/ESPOL= 1 
ALGOL/FSPOL= 1 EQJ 1311 
FOR ALGOL/ESPOL= 1: PROCESS= 258 SFCS» 102 117 SECS» OLAYS 4 
PKT#0093 REMOVED 


